Changeset 16109 in project


Ignore:
Timestamp:
09/29/09 16:50:38 (10 years ago)
Author:
Kon Lovett
Message:

Updated with new unit lolevel routines.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/types.db

    r16086 r16109  
    548548(block-ref (procedure block-ref (* fixnum) *))
    549549(block-set! (procedure block-set! (* fixnum *) *))
     550(clear-unbound-variable-value! (procedure clear-unbound-variable-value! () undefined))
    550551(extend-procedure (procedure extend-procedure (procedure *) procedure))
    551552(extended-procedure? (procedure extended-procedure? (*) boolean))
     
    555556(global-ref (procedure global-ref (symbol) *))
    556557(global-set! (procedure global-set! (symbol *) *))
     558(invalid-procedure-call-handler (procedure invalid-procedure-call-handler () procedure))
    557559(locative->object (procedure locative->object (locative) *))
    558560(locative-ref (procedure locative-ref (locative) *))
     
    609611(set-invalid-procedure-call-handler! (procedure set-invalid-procedure-call-handler! (procedure) undefined))
    610612(set-procedure-data! (procedure set-procedure-data! (procedure *) undefined))
     613(set-unbound-variable-value! (procedure set-unbound-variable-value! (*) undefined))
    611614(tag-pointer (procedure tag-pointer (pointer *) pointer))
    612615(tagged-pointer? (procedure tagged-pointer? (*) boolean))
    613616(unbound-variable-value (procedure unbound-variable-value (#!optional *) undefined))
     617(unbound-variable-given-value (procedure unbound-variable-given-value () *))
     618(unbound-variable-signals-error? (procedure unbound-variable-signals-error? () boolean))
    614619(vector-like? (procedure vector-like? (*) boolean))
    615620
Note: See TracChangeset for help on using the changeset viewer.