~ 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