fixed mapped id application context

svn: r1198 original commit: e46ea7dbb2ee59dbd629b002fc4ffd187051383a
2005-11-01 20:13:36 +00:00 · 2005-11-01 20:13:36 +00:00 · 1332477464
commit 1332477464
parent c470acaaf1
1 changed files with 1 additions and 1 deletions
--- a/collects/mzlib/private/unitidmap.ss
+++ b/collects/mzlib/private/unitidmap.ss
@ -28,7 +28,7 @@
 	   (binding
 	    the-binder (car (syntax-e sstx))
 	    (datum->syntax-object
-	     set!-stx
+	     sstx
 	     (cons unbox-stx (cdr (syntax-e sstx)))
 	     sstx))])))))