[Openmcl-cvs-notifications] r9867 - /trunk/source/compiler/nx0.lisp

[gz at clozure.com]

Author: gz
Date: Tue Jul  1 14:55:38 2008
New Revision: 9867

Log:
Propagate r9866 to trunk

Modified:
    trunk/source/compiler/nx0.lisp

Modified: trunk/source/compiler/nx0.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/compiler/nx0.lisp (original)
+++ trunk/source/compiler/nx0.lisp Tue Jul  1 14:55:38 2008
@@ -1622,11 +1622,10 @@
       (nx1-typed-form form *nx-lexical-environment*))))
 =

 (defun nx1-typed-form (original env)
-  (let ((form (with-program-error-handler
-		  (lambda (c)
-		    (nx-transform (runtime-program-error-form c) env))
-		(nx-transform original env))))
-    (nx1-transformed-form form env)))
+  (with-program-error-handler
+      (lambda (c)
+        (nx1-transformed-form (nx-transform (runtime-program-error-form c)=
 env) env))
+    (nx1-transformed-form (nx-transform original env) env)))
 =

 (defun nx1-transformed-form (form &optional (env *nx-lexical-environment*))
   (if (consp form)