steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

alien.enums: cleanup using.

db4
John Benediktsson 2014-06-30 09:09:46 -07:00
parent 85fdc4f6d2
commit 055cacabd4
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/alien/enums/enums.factor
View File

@ -1,7 +1,7 @@
! (c)2010 Joe Groff, Erik Charlebois bsd license ! (c)2010 Joe Groff, Erik Charlebois bsd license
USING: accessors alien.c-types arrays combinators delegate fry USING: accessors alien.c-types arrays assocs classes.singleton
generic.parser kernel macros math parser sequences words words.symbol combinators delegate fry kernel macros math parser sequences
classes.singleton assocs ; words ;
IN: alien.enums IN: alien.enums
<PRIVATE <PRIVATE
@ -52,6 +52,6 @@ PRIVATE>
: define-enum ( word base-type members -- ) : define-enum ( word base-type members -- )
[ (define-enum) ] [ (define-enum) ]
[ [ define-enum-value ] assoc-each ] bi ; [ [ define-enum-value ] assoc-each ] bi ;
PREDICATE: enum-c-type-word < c-type-word PREDICATE: enum-c-type-word < c-type-word
"c-type" word-prop enum-c-type? ; "c-type" word-prop enum-c-type? ;