mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

final de-:prefixification

Browse source 
* scripts/compile: Don't (read-set! keywords 'prefix) here either.
This commit is contained in:
Andy Wingo 2008-09-09 07:13:14 +02:00
parent 1a1a10d3a5
commit 7618201efd
1 changed files with 7 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

16
scripts/compile
View file

@ -34,12 +34,10 @@ exec ${GUILE-guile} -e '(@ (scripts compile) compile)' -s $0 "$@"
;;; Code: ;;; Code:
(read-set! keywords 'prefix)
(define-module (scripts compile) (define-module (scripts compile)
:use-module (system base compile) #:use-module (system base compile)
:use-module (ice-9 getopt-long) #:use-module (ice-9 getopt-long)
:export (compile)) #:export (compile))
(define %options (define %options
'((help (single-char #\h) (value #f)) '((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>.~%") Report bugs to <guile-user@gnu.org>.~%")
(exit 0))) (exit 0)))
(let ((compile-opts (append (if optimize? '(:O) '()) (let ((compile-opts (append (if optimize? '(#:O) '())
(if expand-only? '(:e) '()) (if expand-only? '(#:e) '())
(if translate-only? '(:t) '()) (if translate-only? '(#:t) '())
(if compile-only? '(:c) '())))) (if compile-only? '(#:c) '()))))
(catch #t (catch #t
(lambda () (lambda ()