From a48930c68707d96729e36ebb3f68cb0845adfc31 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Tue, 19 Aug 1997 21:58:29 +0000 Subject: [PATCH] * 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. --- ice-9/ChangeLog | 1 + ice-9/syncase.scm | 12 ++++++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) 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) '())