mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 03:54:12 +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

13
ice-9/syncase.scm
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")