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

Use create-class-in to get redefinition errors with enums

db4
Doug Coleman 2010-09-29 16:24:25 -05:00
parent f981b6db3c
commit 3cdc9ba650
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/alien/parser/parser.factor
View File

@ -96,8 +96,8 @@ M: pointer return-type-name to>> return-type-name CHAR: * suffix ;
: parse-enum-member ( members name value -- members value' ) : parse-enum-member ( members name value -- members value' )
over "{" = over "{" =
[ 2drop scan create-in scan-object next-enum-member "}" expect ] [ 2drop scan create-class-in scan-object next-enum-member "}" expect ]
[ [ create-in ] dip next-enum-member ] if ; [ [ create-class-in ] dip next-enum-member ] if ;
: parse-enum-members ( members counter token -- members ) : parse-enum-members ( members counter token -- members )
dup ";" = not dup ";" = not