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> 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= --> =. * psyntax.pp, psyntax.ss (quasiquote): Changed fx= --> =.
* * syncase.scm: New file: Guile-adaption for syntax-case macros. * * syncase.scm: New file: Guile-adaption for syntax-case macros.

17
ice-9/syncase.scm
View file

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