From e70c063e61a65be2e208ed2db7d313cbb6201bd8 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Wed, 16 Sep 2009 14:17:13 -0500
Subject: [PATCH] fix alien-function-word predicate

---
 basis/alien/parser/parser.factor | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/basis/alien/parser/parser.factor b/basis/alien/parser/parser.factor
index 662139810e..ab09383d7c 100644
--- 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&& ;