diff options
author | Andy Wingo <wingo@pobox.com> | 2008-09-09 07:13:14 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2008-09-09 07:13:14 +0200 |
commit | 7618201efd35d653b98d3c1036d65e36b2c6db53 (patch) | |
tree | db393f8c05b8af89d86811c08b33b4065bd26a3f /scripts | |
parent | 1a1a10d3a5bfed3ef93b5e6b7cd91954892639e7 (diff) | |
download | guile-7618201efd35d653b98d3c1036d65e36b2c6db53.tar.gz |
final de-:prefixification
* scripts/compile: Don't (read-set! keywords 'prefix) here either.
Diffstat (limited to 'scripts')
-rwxr-xr-x | scripts/compile | 16 |
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 () |