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:
parent
a48930c687
commit
6a546cd710
1 changed files with 9 additions and 4 deletions
|
@ -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")
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue