ikarus/other-libs/interp-main.ss

17 lines
279 B
Scheme
Raw Normal View History

2007-12-11 17:41:48 -05:00
(source "r6rs.ss")
(source "parameters.ss")
(source "match.ss")
(source "interp.ss")
(library main
(export)
(import interp r6rs)
(write (ee '(let ((x 5))
(let ((y (+ x x)))
(+ y x)))))
(newline))
(invoke main)
;(dump main "main.pp")