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

(display-version, display-help): Fix comment; nfc.

Browse source
This commit is contained in:
Thien-Thi Nguyen 2001-07-10 20:49:48 +00:00
parent d76852e37c
commit 3b0eb5fd6b
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
examples/scripts/hello
View file

@ -20,12 +20,12 @@
'((version (single-char #\v) (value #f)) '((version (single-char #\v) (value #f))
(help (single-char #\h) (value #f)))) (help (single-char #\h) (value #f))))
;; Display version information and exit. ;; Display version information.
;; ;;
(define (display-version) (define (display-version)
(display "hello 0.0.1\n")) (display "hello 0.0.1\n"))
;; Display the usage help message and exit. ;; Display the usage help message.
;; ;;
(define (display-help) (define (display-help)
(display "Usage: hello [options...]\n") (display "Usage: hello [options...]\n")