mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-06 12:10:28 +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.
This commit is contained in:
Mikael Djurfeldt 1997-08-19 20:51:42 +00:00
parent 4f9cefe3c3
commit 19ef2a9bdb
2 changed files with 11 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

3
ice-9/ChangeLog
View file

@ -1,5 +1,8 @@
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
macros. Instead cut the stack with start-stack.
* psyntax.pp, psyntax.ss (quasiquote): Changed fx= --> =.
* * syncase.scm: New file: Guile-adaption for syntax-case macros.

9
ice-9/syncase.scm
View file

@ -40,11 +40,12 @@
(and (apply f (cons x xr)) (andmap first rest)))))))))
(define (error who format-string why what)
(start-stack 'syncase-stack
(scm-error 'misc-error
who
"%s %S"
(list why what)
'()))
'())))
(define putprop set-symbol-property!)
(define getprop symbol-property)
@ -102,11 +103,9 @@
;;; *fixme*
(define-public (eval-enable x)
(variable-set! (builtin-variable 'scm:eval-transformer) sc-expand)
(debug-disable 'debug))
(variable-set! (builtin-variable 'scm:eval-transformer) sc-expand))
(define-public (eval-disable x)
(variable-set! (builtin-variable 'scm:eval-transformer) #f)
(debug-enable 'debug))
(variable-set! (builtin-variable 'scm:eval-transformer) #f))
(eval-enable 'syncase)