Remove ENUM: f and replace uses with CONSTANTs.

[factor.git] / basis / alien / parser / parser.factor

diff --git a/basis/alien/parser/parser.factor b/basis/alien/parser/parser.factor
index 07f0d49f2ffb4363b0c5db5ce2d8c20bf8cd0691..166c29bef509ec6f0ecb7a7d1265c37a96735f56 100755 (executable)
--- a/basis/alien/parser/parser.factor
+++ b/basis/alien/parser/parser.factor
@@ -79,9 +79,7 @@ M: pointer return-type-name to>> return-type-name CHAR: * suffix ;
     [ 2array suffix! ] [ 1 + ] bi ;
 
 : parse-enum-name ( -- name )
-    scan dup "f" =
-    [ drop f ]
-    [ (CREATE-C-TYPE) dup save-location ] if ;
+    scan (CREATE-C-TYPE) dup save-location ;
 
 : parse-enum-base-type ( -- base-type token )
     scan dup "<" =