From 2de97f05f0411ddc0b738db5748beee031762479 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Sun, 11 Jan 2004 00:01:48 +0000
Subject: [PATCH] 	Revert this, it breaks
 test-suite/tests/r5rs_pitfalls.test where 	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.
---
 ice-9/boot-9.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 0cc341a19..e82726a8b 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -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.
 ;;;