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

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

Browse source 
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
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
ice-9/syncase.scm
View file

@ -95,13 +95,18 @@
(apply consumer (access-values result)) (apply consumer (access-values result))
(consumer result)))))) (consumer result))))))
(let ((old #f)) (let ((old-debug #f)
(old-read #f))
(dynamic-wind (lambda () (dynamic-wind (lambda ()
(set! old (read-options))) (set! old-debug (debug-options))
(set! old-read (read-options)))
(lambda () (lambda ()
(debug-disable 'debug 'procnames)
(read-disable 'positions)
(load-from-path "ice-9/psyntax.pp")) (load-from-path "ice-9/psyntax.pp"))
(lambda () (lambda ()
(read-options old)))) (debug-options old-debug)
(read-options old-read))))
;; The followin line is necessary only if we start making changes ;; The followin line is necessary only if we start making changes
;; (load-from-path "ice-9/psyntax.ss") ;; (load-from-path "ice-9/psyntax.ss")