Changeset 12637 in project for chicken


Ignore:
Timestamp:
11/28/08 13:50:59 (12 years ago)
Author:
felix winkelmann
Message:

forgot to mark internal bindings as intrinsic

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/support.scm

    r12595 r12637  
    340340         (when (memq s foldable-extended-bindings) (put! db s 'foldable #t)) )
    341341       extended-bindings)
     342      (when initial
     343        (for-each
     344         (lambda (s)
     345           (mark-variable s '##compiler#intrinsic 'internal))
     346         internal-bindings))
    342347      (set! initial #f))))
    343348
Note: See TracChangeset for help on using the changeset viewer.