Changeset 9866


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

fix scope of with-program-error-handler in form handling (bug #315)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/compiler/nx0.lisp

    r9861 r9866  
    17711771
    17721772(defun nx1-typed-form (original env)
    1773   (let ((form (with-program-error-handler
    1774                   (lambda (c)
    1775                     (nx-transform (runtime-program-error-form c) env))
    1776                 (nx-transform original env))))
    1777     (nx1-transformed-form form env original)))
     1773  (with-program-error-handler
     1774      (lambda (c)
     1775        (nx1-transformed-form (nx-transform (runtime-program-error-form c) env) env original))
     1776    (nx1-transformed-form (nx-transform original env) env original)))
    17781777
    17791778(defun nx1-transformed-form (form env &optional original)
Note: See TracChangeset for help on using the changeset viewer.