author | Tony Garnock-Jones <tonygarnockjones@gmail.com> |
Sun, 30 May 2010 11:50:57 +1200 | |
changeset 291 | ca13241a027a |
parent 290 | 7a684e1e3300 |
child 292 | 832a49bebf67 |
r4/main.scm | file | annotate | diff | comparison | revisions |
--- a/r4/main.scm Sun May 30 11:06:31 2010 +1200 +++ b/r4/main.scm Sun May 30 11:50:57 2010 +1200 @@ -120,10 +120,9 @@ (if (eq? result 'eof) (read-block) (begin - (pretty-print result) + ;;(pretty-print result) (with-handlers ((exn:fail? print-etng-error)) - (print-etng (e result)) - (newline)) + (print-etng (e result))) (when (and next (not (eq? next input))) (eval-block next))))) (lambda (err)