Rename gscc to 'ull'

1 files changed, 3 insertions, 3 deletions

diff --git a/src/gscc b/src/ull
index 41cbbed..f878c4e 100755
--- a/src/gscc
+++ b/src/ull
@@ -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))