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

View File

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