summaryrefslogtreecommitdiff
path: root/scripts/compile
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/compile')
-rwxr-xr-xscripts/compile16
1 files changed, 7 insertions, 9 deletions
diff --git a/scripts/compile b/scripts/compile
index 4154baea7..ebe810a20 100755
--- a/scripts/compile
+++ b/scripts/compile
@@ -34,12 +34,10 @@ exec ${GUILE-guile} -e '(@ (scripts compile) compile)' -s $0 "$@"
;;; Code:
-(read-set! keywords 'prefix)
-
(define-module (scripts compile)
- :use-module (system base compile)
- :use-module (ice-9 getopt-long)
- :export (compile))
+ #:use-module (system base compile)
+ #:use-module (ice-9 getopt-long)
+ #:export (compile))
(define %options
'((help (single-char #\h) (value #f))
@@ -69,10 +67,10 @@ Compile each Guile Scheme source file FILE into a Guile object.
Report bugs to <guile-user@gnu.org>.~%")
(exit 0)))
- (let ((compile-opts (append (if optimize? '(:O) '())
- (if expand-only? '(:e) '())
- (if translate-only? '(:t) '())
- (if compile-only? '(:c) '()))))
+ (let ((compile-opts (append (if optimize? '(#:O) '())
+ (if expand-only? '(#:e) '())
+ (if translate-only? '(#:t) '())
+ (if compile-only? '(#:c) '()))))
(catch #t
(lambda ()