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

fix alien-function-word predicate

db4
Joe Groff 2009-09-16 14:17:13 -05:00
parent fc5500a0dc
commit e70c063e61
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,9 +1,9 @@
! Copyright (C) 2008, 2009 Slava Pestov, Doug Coleman. ! Copyright (C) 2008, 2009 Slava Pestov, Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien alien.c-types arrays assocs USING: accessors alien alien.c-types arrays assocs
combinators effects grouping kernel parser sequences combinators combinators.short-circuit effects grouping
splitting words fry locals lexer namespaces summary kernel parser sequences splitting words fry locals lexer
math vocabs.parser ; namespaces summary math vocabs.parser ;
IN: alien.parser IN: alien.parser
: parse-c-type-name ( name -- word/string ) : parse-c-type-name ( name -- word/string )
@ -58,4 +58,7 @@ IN: alien.parser
make-function define-declared ; make-function define-declared ;
PREDICATE: alien-function-word < word PREDICATE: alien-function-word < word
def>> [ length 5 = ] [ last \ alien-invoke eq? ] bi and ; def>> {
[ length 5 = ]
[ last \ alien-invoke eq? ]
} 1&& ;