summaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2008-09-09 07:13:14 +0200
committerAndy Wingo <wingo@pobox.com>2008-09-09 07:13:14 +0200
commit7618201efd35d653b98d3c1036d65e36b2c6db53 (patch)
treedb393f8c05b8af89d86811c08b33b4065bd26a3f /scripts
parent1a1a10d3a5bfed3ef93b5e6b7cd91954892639e7 (diff)
downloadguile-7618201efd35d653b98d3c1036d65e36b2c6db53.tar.gz
final de-:prefixification
* scripts/compile: Don't (read-set! keywords 'prefix) here either.
Diffstat (limited to 'scripts')
-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 ()