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