summaryrefslogtreecommitdiff
path: root/module/scripts/compile.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/scripts/compile.scm')
-rw-r--r--module/scripts/compile.scm16
1 files changed, 14 insertions, 2 deletions
diff --git a/module/scripts/compile.scm b/module/scripts/compile.scm
index 89d35bcb5..9b14f2fca 100644
--- a/module/scripts/compile.scm
+++ b/module/scripts/compile.scm
@@ -48,6 +48,10 @@
(list (option '(#\h "help") #f #f
(lambda (opt name arg result)
(alist-cons 'help? #t result)))
+ (option '("version") #f #f
+ (lambda (opt name arg result)
+ (show-version)
+ (exit 0)))
(option '(#\L "load-path") #t #f
(lambda (opt name arg result)
@@ -90,7 +94,7 @@
options."
(args-fold args %options
(lambda (opt name arg result)
- (format (current-error-port) "~A: unrecognized option" opt)
+ (format (current-error-port) "~A: unrecognized option" name)
(exit 1))
(lambda (file result)
(let ((input-files (assoc-ref result 'input-files)))
@@ -102,6 +106,13 @@ options."
(load-path)
(warnings unsupported-warning))))
+(define (show-version)
+ (format #t "compile (GNU Guile) ~A~%" (version))
+ (format #t "Copyright (C) 2009 Free Software Foundation, Inc.
+License LGPLv3+: GNU LGPL version 3 or later <http://gnu.org/licenses/lgpl.html>.
+This is free software: you are free to change and redistribute it.
+There is NO WARRANTY, to the extent permitted by law.~%"))
+
(define (show-warning-help)
(format #t "The available warning types are:~%~%")
(for-each (lambda (wt)
@@ -143,7 +154,8 @@ Compile each Guile source file FILE into a Guile object.
Note that autocompilation will be turned off.
-Report bugs to <guile-user@gnu.org>.~%")
+Report bugs to <~A>.~%"
+ %guile-bug-report-address)
(exit 0)))
(set! %load-path (append load-path %load-path))