~ chicken-core (chicken-5) b941aab9a7a52801367ec887156cec243338dbfe
commit b941aab9a7a52801367ec887156cec243338dbfe
Author: Evan Hanson <evhan@foldling.org>
AuthorDate: Fri Jan 1 18:27:43 2016 +1300
Commit: Evan Hanson <evhan@foldling.org>
CommitDate: Fri Jan 1 18:29:55 2016 +1300
Make the chicken executable a module
diff --git a/chicken.scm b/chicken.scm
index b55c7c6e..d7a90a8f 100644
--- a/chicken.scm
+++ b/chicken.scm
@@ -32,18 +32,18 @@
;; TODO: These three need to be made configurable somehow
batch-driver c-platform c-backend))
+(module chicken.compiler.chicken ()
-(include "tweaks")
-
-(import chicken.compiler.batch-driver
+(import scheme chicken
+ chicken.compiler.batch-driver
chicken.compiler.c-platform
chicken.compiler.support
chicken.data-structures
chicken.utils)
+(include "tweaks")
(include "mini-srfi-1.scm")
-
;;; Prefix argument list with default options:
(define compiler-arguments
@@ -156,4 +156,4 @@
(if (string? o) o (conc "-" o)) )
(loop rest) ) ) ) ) )
(apply compile-source-file filename compiler-arguments options)
- (exit) )
+ (exit)))
Trap