From 6a546cd710a333c83f8f69631ce49eeb43437d82 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Wed, 20 Aug 1997 11:23:22 +0000 Subject: [PATCH] * syncase.scm: Also turn off debugging evaluator and recording of procedure names during loading of psyntax.pp. --- ice-9/syncase.scm | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/ice-9/syncase.scm b/ice-9/syncase.scm index 9c2ee91f8..99bcb13f6 100644 --- a/ice-9/syncase.scm +++ b/ice-9/syncase.scm @@ -95,14 +95,19 @@ (apply consumer (access-values result)) (consumer result)))))) -(let ((old #f)) +(let ((old-debug #f) + (old-read #f)) (dynamic-wind (lambda () - (set! old (read-options))) + (set! old-debug (debug-options)) + (set! old-read (read-options))) (lambda () + (debug-disable 'debug 'procnames) + (read-disable 'positions) (load-from-path "ice-9/psyntax.pp")) (lambda () - (read-options old)))) - + (debug-options old-debug) + (read-options old-read)))) + ;; The followin line is necessary only if we start making changes ;; (load-from-path "ice-9/psyntax.ss")