From 3cdc9ba650caca58687b2840c387b238a789de1d Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 29 Sep 2010 16:24:25 -0500 Subject: [PATCH] Use create-class-in to get redefinition errors with enums --- basis/alien/parser/parser.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/alien/parser/parser.factor b/basis/alien/parser/parser.factor index 84db07c5ed..bab3ab02f0 100755 --- a/basis/alien/parser/parser.factor +++ b/basis/alien/parser/parser.factor @@ -96,8 +96,8 @@ M: pointer return-type-name to>> return-type-name CHAR: * suffix ; : parse-enum-member ( members name value -- members value' ) over "{" = - [ 2drop scan create-in scan-object next-enum-member "}" expect ] - [ [ create-in ] dip next-enum-member ] if ; + [ 2drop scan create-class-in scan-object next-enum-member "}" expect ] + [ [ create-class-in ] dip next-enum-member ] if ; : parse-enum-members ( members counter token -- members ) dup ";" = not