...
svn: r2348
This commit is contained in:
parent
e0f43372fd
commit
238b744d99
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user