diff options
Diffstat (limited to 'src')
| -rwxr-xr-x | src/ull (renamed from src/gscc) | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -19,7 +19,7 @@ (define (error message) (display (string-concatenate `(,message " Usage: - gscc [OPTIONS] file + ull [OPTIONS] file Options: --version, -v: print version information --debug, -d: turn on verbose output @@ -70,7 +70,7 @@ Returns #f on a failure, #t on a success." (zero? (system (string-concatenate `("gcc " ,src " -o " ,dest))))) (define (main args) - "Entry point for the gscc. Handles user args and performs initial validity check." + "Entry point for ull. Handles user args and performs initial validity check." (let* ((option-spec '((version (single-char #\v) (value #f)) (debug (single-char #\d) (value #f)) @@ -83,7 +83,7 @@ Returns #f on a failure, #t on a success." (file (if (null? rest) #f (car rest)))) (cond ((option-ref options 'version #f) - (display (string-concatenate `("gscc (the 'Guile Scheme C Compiler', " ,version ")\n")))) + (display (string-concatenate `("ull (" ,version ")\n")))) ((not (equal? 1 (length rest))) (error "Wrong number of arguments.")) ((or (not file) (not (access? file R_OK)) |