svn: r2348
This commit is contained in:
John Clements 2006-03-02 20:44:06 +00:00
parent e0f43372fd
commit 238b744d99

View File

@ -293,8 +293,8 @@
(program-expander (program-expander
(lambda () (lambda ()
; swap these to allow errors to escape (e.g., when debugging) ; swap these to allow errors to escape (e.g., when debugging)
#;(error-display-handler err-display-handler) (error-display-handler err-display-handler)
(void) #;(void)
) )
(lambda (expanded continue-thunk) ; iter (lambda (expanded continue-thunk) ; iter
(if (eof-object? expanded) (if (eof-object? expanded)