From 19ef2a9bdbc1eb4c9aa6d2abff361dc7799703ab Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Tue, 19 Aug 1997 20:51:42 +0000 Subject: [PATCH] * syncase.scm: Don't tamper with debug mode setting when enabling macros. Instead cut the stack with start-stack. --- ice-9/ChangeLog | 3 +++ ice-9/syncase.scm | 17 ++++++++--------- 2 files changed, 11 insertions(+), 9 deletions(-) diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index e36e937d6..6f10daf3e 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -1,5 +1,8 @@ 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. + * psyntax.pp, psyntax.ss (quasiquote): Changed fx= --> =. * * syncase.scm: New file: Guile-adaption for syntax-case macros. diff --git a/ice-9/syncase.scm b/ice-9/syncase.scm index 823f51f6d..19b46cf58 100644 --- a/ice-9/syncase.scm +++ b/ice-9/syncase.scm @@ -40,11 +40,12 @@ (and (apply f (cons x xr)) (andmap first rest))))))))) (define (error who format-string why what) - (scm-error 'misc-error - who - "%s %S" - (list why what) - '())) + (start-stack 'syncase-stack + (scm-error 'misc-error + who + "%s %S" + (list why what) + '()))) (define putprop set-symbol-property!) (define getprop symbol-property) @@ -102,11 +103,9 @@ ;;; *fixme* (define-public (eval-enable x) - (variable-set! (builtin-variable 'scm:eval-transformer) sc-expand) - (debug-disable 'debug)) + (variable-set! (builtin-variable 'scm:eval-transformer) sc-expand)) (define-public (eval-disable x) - (variable-set! (builtin-variable 'scm:eval-transformer) #f) - (debug-enable 'debug)) + (variable-set! (builtin-variable 'scm:eval-transformer) #f)) (eval-enable 'syncase)