From dc69f0b229ba4c284c784410c49d4bce6fa446e1 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 24 Nov 2004 21:42:33 +0000
Subject: [PATCH] .

original commit: 5b5e7e25f0b2e60f5a33f6d2a354ac0dcde212af
---
 collects/mzlib/etc.ss | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/collects/mzlib/etc.ss b/collects/mzlib/etc.ss
index 0b583c5..7f15bbe 100644
--- a/collects/mzlib/etc.ss
+++ b/collects/mzlib/etc.ss
@@ -36,7 +36,9 @@
            
            hash-table
 
-	   begin-with-definitions)
+	   begin-with-definitions
+
+	   begin-lifted)
   
   (define true #t)
   (define false #f)
@@ -553,4 +555,9 @@
 			      prev-defns))
 		       null)]
 		[else
-		 (loop (cdr exprs) prev-defns (cons (car exprs) prev-exprs))]))))))
+		 (loop (cdr exprs) prev-defns (cons (car exprs) prev-exprs))])))))
+
+  (define-syntax (begin-lifted stx)
+    (syntax-case stx ()
+      [(_ expr0 expr ...)
+       (syntax-local-lift-expression #'(begin expr0 expr ...))])))