17 lines
359 B
Scheme
Executable File
17 lines
359 B
Scheme
Executable File
#! /usr/bin/mzscheme
|
|
#lang scheme/base
|
|
|
|
(require scheme/pretty)
|
|
|
|
(require (file "libcompiler/reader.scm"))
|
|
(require (file "libcompiler/compiler.scm"))
|
|
(require (file "libcompiler/writer.scm"))
|
|
|
|
(optimize? #t)
|
|
|
|
;(pretty-print (reduce-function (read-module)))
|
|
(write-rla-value (compile-function (read-module)))
|
|
(write-char #\Newline)
|
|
|
|
; vim:set sw=2 expandtab:
|