fix alien-function-word predicate

diff --git a/basis/alien/parser/parser.factor b/basis/alien/parser/parser.factor
index 662139810e981d9794eff5e54fd1f4f218680869..ab09383d7c79cf19662effb3368114cf8d3a53b7 100644 (file)
--- a/basis/alien/parser/parser.factor
+++ b/basis/alien/parser/parser.factor
@@ -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&& ;