~evhan/beaker

ed20588f574ff87c12f306e1165d53319e4b3a42 — Evan Hanson 1 year, 7 months ago 367b34d
Make egg-file argument to load-system optional
2 files changed, 5 insertions(+), 3 deletions(-)

M chicken-clean.scm
M lib/beaker/system.scm
M chicken-clean.scm => chicken-clean.scm +1 -1
@@ 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)

M lib/beaker/system.scm => lib/beaker/system.scm +4 -2
@@ 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)