From f394cb4fdca8044c8da8d2f79bdd5a69c1c4ad54 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Mon, 12 Apr 2010 21:54:41 -0700
Subject: [PATCH] alien.parser: have define-enum handle the case when the enum
name is f
---
basis/alien/parser/parser.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/basis/alien/parser/parser.factor b/basis/alien/parser/parser.factor
index 63f5043eeb..952f7b64d9 100755
--- a/basis/alien/parser/parser.factor
+++ b/basis/alien/parser/parser.factor
@@ -96,7 +96,7 @@ PRIVATE>
[ swap parse-enum-member parse-enum-members ] [ 2drop ] if ;
: define-enum ( word members -- )
- [ int swap typedef ] [ define-enum-members ] bi* ;
+ [ [ int swap typedef ] when ] [ define-enum-members ] bi* ;
: scan-function-name ( -- return function )
scan-c-type scan parse-pointers ;