1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-02 18:26:20 +02:00

* syncase.scm: Also turn off debugging evaluator and recording of

procedure names during loading of psyntax.pp.
This commit is contained in:
Mikael Djurfeldt 1997-08-20 11:23:22 +00:00
parent a48930c687
commit 6a546cd710

View file

@ -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")