fix alien-function-word predicate
parent
fc5500a0dc
commit
e70c063e61
|
@ -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&& ;
|
||||
|
|
Loading…
Reference in New Issue