author | Tony Garnock-Jones <tonyg@kcbbs.gen.nz> |
Sun, 18 Jan 2009 00:28:34 +0000 | |
changeset 208 | 0fb5d58b308c |
parent 207 | b913a690a851 |
child 209 | 2f3f59f1aa69 |
etng-r2/main.scm | file | annotate | diff | comparison | revisions |
--- a/etng-r2/main.scm Sun Jan 18 00:28:04 2009 +0000 +++ b/etng-r2/main.scm Sun Jan 18 00:28:34 2009 +0000 @@ -215,7 +215,8 @@ (define (rude-evaluator input) (let* ((ast (pp 'ast input)) - (ast (pp 'convert-constant-methods-pass (convert-constant-methods-pass ast)))) + (ast (pp 'convert-constant-methods-pass (convert-constant-methods-pass ast))) + ) ast)) (define (etng-parse-file* filename evaluator)