--- a/etng-r2/main.scm Sat Aug 08 15:19:25 2009 +0100
+++ b/etng-r2/main.scm Sat Aug 08 15:19:39 2009 +0100
@@ -233,9 +233,9 @@
(load "compile-to-scheme.scm")
(define (rude-evaluator input)
- (let* ((ast (pp 'ast input))
+ (let* ((ast (!pp 'ast input))
(ast (!pp 'convert-constant-methods-pass (convert-constant-methods-pass ast)))
- (scheme-ast (pp 'compile-to-scheme (compile-to-scheme ast)))
+ (scheme-ast (!pp 'compile-to-scheme (compile-to-scheme ast)))
(thunk (!pp 'compile-scheme (eval `(lambda () ,scheme-ast))))
)
(write (thunk))