2 files changed, 5 insertions(+), 3 deletions(-)

M chicken-clean.scm
M lib/beaker/system.scm

@@ 105,7 105,7 @@
         (for-each remove-directory directories)))))
 
 (define (usage status)
-  (message 0 (conc "Usage: " (pathname-file (program-name)) " [-interactive | -quiet | -verbose] [<path> ...]"))
+  (message 0 (conc "Usage: " (pathname-file (program-name)) " [-interactive | -quiet | -verbose] [filename ...]"))
   (exit status))
 
 (define (main)

@@ 62,7 62,9 @@
   (make-hash-table))
 
 (define (egg-path egg-file)
-  (or (pathname-directory egg-file) "."))
+  (or (and (directory? egg-file) egg-file)
+      (pathname-directory egg-file)
+      (current-directory)))
 
 (define (compiled-program-path egg-file program)
   (make-pathname (egg-path egg-file) (symbol->string program)))


@@ 125,7 127,7 @@
 ;; Subsequent calls cause the components to be recompiled and reloaded
 ;; as necessary.
 ;;
-(define (load-system egg-file #!key (skip '()))
+(define (load-system #!optional (egg-file ".") #!key (skip '()))
   (compile-system egg-file)
   (for-each (lambda (x)
               (unless (memq x skip)