From 6c4a951a6e8f63c683dd7aca0651cd482ee2f3d3 Mon Sep 17 00:00:00 2001 From: Gabriel Hondet Date: Thu, 17 Jan 2019 08:24:30 +0100 Subject: [PATCH] gnu: gauche: Remove number of packages from description. * gnu/packages/scheme.scm (gauche)[description]: Remove number of packages. [arguments]: Remove useless code. --- gnu/packages/scheme.scm | 20 +++++++------------- 1 file changed, 7 insertions(+), 13 deletions(-) diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm index 4f61bd1667..b836447668 100644 --- a/gnu/packages/scheme.scm +++ b/gnu/packages/scheme.scm @@ -1214,13 +1214,9 @@ (define-public gauche (("/bin/sh") (which "sh"))) #t)) (add-after 'build 'build-doc - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out"))) - (with-directory-excursion "doc" - (for-each - (lambda (target) - (invoke "make" target)) - '("info" "html" "htmls")))) + (lambda _ + (with-directory-excursion "doc" + (invoke "make" "info")) #t)) (add-before 'check 'patch-normalize-test ;; neutralize sys-normalize-pathname test as it relies on @@ -1236,10 +1232,9 @@ (define-public gauche (("binary net termios") "binary termios")) #t)) (add-after 'install 'install-docs - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out"))) - (with-directory-excursion "doc" - (invoke "make" "install"))) + (lambda _ + (with-directory-excursion "doc" + (invoke "make" "install")) #t))))) (synopsis "Scheme scripting engine") (description "Gauche is a R7RS Scheme scripting engine aiming at being a @@ -1247,6 +1242,5 @@ (define-public gauche large scripts quickly. Quick startup, built-in system interface, native multilingual support are some of the goals. Gauche comes with a package manager/installer @code{gauche-package} which can download, compile, install -and list gauche extension packages. There are currently 58 packages -available.") +and list gauche extension packages.") (license bsd-3)))