diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index 6f10daf3e..faeaddaed 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -2,6 +2,7 @@ Tue Aug 19 02:39:41 1997 Mikael Djurfeldt * syncase.scm: Don't tamper with debug mode setting when enabling macros. Instead cut the stack with start-stack. + Load psyntax.pp with recording of positions turned off. * psyntax.pp, psyntax.ss (quasiquote): Changed fx= --> =. diff --git a/ice-9/syncase.scm b/ice-9/syncase.scm index 19b46cf58..9c2ee91f8 100644 --- a/ice-9/syncase.scm +++ b/ice-9/syncase.scm @@ -95,8 +95,16 @@ (apply consumer (access-values result)) (consumer result)))))) -(load-from-path "ice-9/psyntax.pp") -;;(load-from-path "ice-9/psyntax.ss") +(let ((old #f)) + (dynamic-wind (lambda () + (set! old (read-options))) + (lambda () + (load-from-path "ice-9/psyntax.pp")) + (lambda () + (read-options old)))) + +;; The followin line is necessary only if we start making changes +;; (load-from-path "ice-9/psyntax.ss") (define-public (eval-options . args) '())