Add a few more harlani commands.

Author: eholk

harlani.scm

@@ -18,18 +18,21 @@
 
 (parse-args (command-line))
 
-(display "Some useful options:\n")
-(display " (exit)                -- Exit harlani\n")
-(display " (make-shared-object)  -- Compile to a shared library instead of an executable\n")
-(display " (harlan-library-path) -- Where Harlan finds imported libraries\n")
-(display " (harlan-runtime-path) -- Where Harlan finds its runtime files\n")
-(display " (verbose)             -- Make Harlan print detailed information\n")
-(display " (debug)               -- Generate debugging information\n")
-(display " (timing)              -- Display pass timing information\n")
-(display " (trace-pass)          -- Turn on tracing for a given pass\n")
-(display " (untrace-pass)        -- Turn off tracing for a given pass\n")
-(display "\n")
-(display "Compile a file with (compile \"filename\")\n")
+(define (help)
+  (display "Some useful options:\n")
+  (display " (exit)                -- Exit harlani\n")
+  (display " (make-shared-object)  -- Compile to a shared library instead of an executable\n")
+  (display " (harlan-library-path) -- Where Harlan finds imported libraries\n")
+  (display " (harlan-runtime-path) -- Where Harlan finds its runtime files\n")
+  (display " (verbose)             -- Make Harlan print detailed information\n")
+  (display " (debug)               -- Generate debugging information\n")
+  (display " (timing)              -- Display pass timing information\n")
+  (display " (trace-pass)          -- Turn on tracing for a given pass\n")
+  (display " (untrace-pass)        -- Turn off tracing for a given pass\n")
+  (display "\n")
+  (display "Compile a file with (compile \"filename\")\n"))
+
+(help)
 
 (define-syntax try
   (syntax-rules (catch)
@@ -57,12 +60,13 @@
  (lambda (exit)
    (let repl ()
      (display "> ")
-     (match-commands
-      (read)
+     (match-commands (read)
+      help
       make-shared-object
       harlan-library-path
       harlan-runtime-path
       compile
+      no-kernels
       verbose
       debug
       timing