Added test code

This commit is contained in:
Justin Ethier 2016-05-04 22:29:06 -04:00
parent 69a2547b5b
commit 709a13808d

View file

@ -1,5 +1,6 @@
;; Temporary file to test changes to the optimization library
(import (optimize-cps)
(ast)
(scheme write)
(scheme base))
@ -14,3 +15,8 @@
(newline)
(display (adbv:defined-by v))
(newline))
(define l (ast:make-lambda 0 '() '((write 1) (write 2) (write 3))))
(write l)
(newline)