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

* syncase.scm: Don't tamper with debug mode setting when enabling

Browse source 
macros.  Instead cut the stack with start-stack.
	Load psyntax.pp with recording of positions turned off.
This commit is contained in:
Mikael Djurfeldt 1997-08-19 21:58:29 +00:00
parent 19ef2a9bdb
commit a48930c687
2 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
ice-9/ChangeLog
View file

@ -2,6 +2,7 @@ Tue Aug 19 02:39:41 1997 Mikael Djurfeldt <mdj@mdj.nada.kth.se>
* syncase.scm: Don't tamper with debug mode setting when enabling * syncase.scm: Don't tamper with debug mode setting when enabling
macros. Instead cut the stack with start-stack. macros. Instead cut the stack with start-stack.
Load psyntax.pp with recording of positions turned off.
* psyntax.pp, psyntax.ss (quasiquote): Changed fx= --> =. * psyntax.pp, psyntax.ss (quasiquote): Changed fx= --> =.

12
ice-9/syncase.scm
View file

@ -95,8 +95,16 @@
(apply consumer (access-values result)) (apply consumer (access-values result))
(consumer result)))))) (consumer result))))))
(load-from-path "ice-9/psyntax.pp") (let ((old #f))
;;(load-from-path "ice-9/psyntax.ss") (dynamic-wind (lambda ()
(set! old (read-options)))
(lambda ()
(load-from-path "ice-9/psyntax.pp"))
(lambda ()
(read-options old))))
;; The followin line is necessary only if we start making changes
;; (load-from-path "ice-9/psyntax.ss")
(define-public (eval-options . args) (define-public (eval-options . args)
'()) '())