mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-31 17:30:24 +02:00
Code Activity

Revert this, it breaks test-suite/tests/r5rs_pitfalls.test where

Browse source 
false-if-exception is used within syntax-rules.  (Suspect syntax-rules
	ought to support this sort of thing, but it doesn't right now.)

	* boot-9.scm (false-if-exception): Unquote catch and lambda, so as not
	to depend on expansion environment.
This commit is contained in:
Kevin Ryde 2004-01-11 00:01:48 +00:00
parent d9623da1f2
commit 2de97f05f0
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/boot-9.scm
View file

@ -3330,8 +3330,8 @@
signals old-handlers))))))
(defmacro false-if-exception (expr)
`(,catch #t (,lambda () ,expr)
(,lambda args #f)))
`(catch #t (lambda () ,expr)
(lambda args #f)))
;;; This hook is run at the very end of an interactive session.
;;;