Changeset 9867


Ignore:
Timestamp:
Jul 1, 2008, 6:55:38 PM (11 years ago)
Author:
gz
Message:

Propagate r9866 to trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx0.lisp

    r9848 r9867  
    16231623
    16241624(defun nx1-typed-form (original env)
    1625   (let ((form (with-program-error-handler
    1626                   (lambda (c)
    1627                     (nx-transform (runtime-program-error-form c) env))
    1628                 (nx-transform original env))))
    1629     (nx1-transformed-form form env)))
     1625  (with-program-error-handler
     1626      (lambda (c)
     1627        (nx1-transformed-form (nx-transform (runtime-program-error-form c) env) env))
     1628    (nx1-transformed-form (nx-transform original env) env)))
    16301629
    16311630(defun nx1-transformed-form (form &optional (env *nx-lexical-environment*))
Note: See TracChangeset for help on using the changeset viewer.