From 20fbca0bb5efeafc9d296125ef1ff3190a4efbae Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Sun, 3 Jan 2021 22:32:46 +0100 Subject: Remove obsolete icons argument. --- guile-studio-configure.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'guile-studio-configure.scm') diff --git a/guile-studio-configure.scm b/guile-studio-configure.scm index e149488..f337283 100644 --- a/guile-studio-configure.scm +++ b/guile-studio-configure.scm @@ -4,7 +4,7 @@ (srfi srfi-1) (srfi srfi-26)) -(define (generate-configuration prefix emacsdir guiledir picture-language icons emacs-package-dirs) +(define (generate-configuration prefix emacsdir guiledir picture-language emacs-package-dirs) `(progn (let ((guix-emacs.el (expand-file-name @@ -568,7 +568,7 @@ exec ~a/bin/emacs -mm --no-site-file --no-site-lisp --no-x-resources --no-init-f (map (cut string-append infodir "/" <>) (or (scandir infodir info-file?) '())))) (match (command-line) - ((_ prefix emacsdir guiledir picture-language icons . emacs-package-dirs) + ((_ prefix emacsdir guiledir picture-language . emacs-package-dirs) (let* ((share (string-append prefix "/share")) (datadir (string-append share "/guile-studio")) (infodir (string-append datadir "/info"))) @@ -589,7 +589,6 @@ exec ~a/bin/emacs -mm --no-site-file --no-site-lisp --no-x-resources --no-init-f emacsdir guiledir picture-language - icons emacs-package-dirs) #:display? #f))) @@ -614,7 +613,7 @@ exec ~a/bin/emacs -mm --no-site-file --no-site-lisp --no-x-resources --no-init-f #t) ((script . _) (format (current-error-port) - "usage: ~a prefix emacsdir picture-language icons emacs-package-dirs ...\n" + "usage: ~a prefix emacsdir picture-language emacs-package-dirs ...\n" script)))) (main) -- cgit v1.2.3