Changeset 14516 in project


Ignore:
Timestamp:
04/30/09 20:05:11 (10 years ago)
Author:
Kon Lovett
Message:

Save.

Location:
release/4/lookup-table
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/4/lookup-table/branches/primitive/chicken-primitive-srfi-9.scm

    r14512 r14516  
    1111          (_define-inline (rename 'define-inline)) )
    1212      (let ((tag (cadr form))
    13             (conser (caddr form))
     13            (ctor (caddr form))
    1414            (pred (cadddr form))
    1515            (slots (cddddr form)) )
    16         (let ((vars (cdr conser)))
     16        (let* ((vars (cdr ctor))
     17               (inits (map (lambda (sname)
     18                             (if (memq (car sname) vars) (car sname)
     19                                 '(%undefined-value)) )
     20                         slots)))
    1721          `(,_begin
    18              (,_define-inline ,conser
    19                (%make-structure ',tag ,@(map (lambda (sname)
    20                                                (if (memq (car sname) vars) (car sname)
    21                                                    '(%undefined-value)) )
    22                                            slots) ) )
     22             (,_define-inline ,ctor (%make-structure ',tag ,@inits))
    2323             (,_define-inline (,pred x) (%structure-instance? x ',tag))
    2424             ,@(let loop ((slots slots) (i 1))
  • release/4/lookup-table/branches/primitive/lookup-table.scm

    r14514 r14516  
    119119;; Argument Checks
    120120
    121 (define-inline-check-type dict)
     121(define-inline-check-type dict %dictbase?)
    122122
    123123(define-inline (%check-value loc obj)
  • release/4/lookup-table/trunk/lookup-table.meta

    r14484 r14516  
    1010 (files
    1111  "tests"
    12   "chicken-primitive-object-inlines.scm"
    13   "chicken-primitive-srfi-9.scm"
    14   "chicken-primitive-alist.scm"
    1512  "lookup-table.scm"
    1613  "lookup-table.setup") )
Note: See TracChangeset for help on using the changeset viewer.