Change compile-library to use a main function.

Author: dvanhorn

langs/outlaw/Makefile

@@ -37,7 +37,7 @@ runtime.o: $(objs)
 	nasm -g -f $(format) -o $@ $<
 
 stdlib.s: stdlib.rkt
-	cat stdlib.rkt | racket -t compile-library.rkt > stdlib.s
+	cat stdlib.rkt | racket -t compile-library.rkt -m > stdlib.s
 
 %.s: %.rkt
 	cat $< | racket -t compile-stdin.rkt > $@

langs/outlaw/compile-file.rkt

@@ -1,9 +1,6 @@
 #lang racket
+(require "parse.rkt" "compile.rkt" "read-all.rkt" "a86/printer.rkt")
 (provide main)
-(require "parse.rkt"
-         "compile.rkt"
-         "read-all.rkt"
-         "a86/printer.rkt")
 
 ;; -> Void
 ;; Compile contents of stdin

langs/outlaw/compile-library.rkt

@@ -1,8 +1,10 @@
 #lang racket
 (require "parse.rkt" "compile.rkt" "read-all.rkt" "a86/printer.rkt")
+(provide main)
 
 ;; Compile contents of stdin
 ;; emit asm code on stdout
-(begin
-  (void (read-line)) ; ignore #lang racket line
-  (display (asm-string (compile-library (parse-library (read-all))))))
+(define (main)
+  (begin
+    (read-line) ; ignore #lang racket line
+    (displayln (asm-string (compile-library (parse-library (read-all)))))))