Changeset 13841 in project


Ignore:
Timestamp:
03/19/09 22:19:17 (11 years ago)
Author:
Jim Ursetto
Message:

fix foreigners bug, add tests

Location:
release/4/foreigners/trunk
Files:
2 added
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/foreigners/trunk/foreigners.scm

    r13518 r13841  
    213213
    214214         `(,%begin
    215            (,%define-foreign-type ,type-name
    216              ,native-type ,to-native ,from-native)
    217            
    218215           ,@(map (lambda (e)
    219216                    (match-let ([ ((s var) name d) e ])
     
    247244                               (,%else (,%error "not a member of enum" val
    248245                                                ',type-name)))))))))
     246
     247           (,%define-foreign-type ,type-name
     248             ,native-type ,to-native ,from-native)
     249
    249250           ))))
    250251
Note: See TracChangeset for help on using the changeset viewer.