From e3bb6fda55f26b9ebb72a991fb2f7d7d8eb5350d Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Wed, 16 Sep 2009 10:24:03 -0500
Subject: [PATCH] fix FUNCTION: prettyprint when function has no arguments

---
 basis/alien/prettyprint/prettyprint.factor | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/basis/alien/prettyprint/prettyprint.factor b/basis/alien/prettyprint/prettyprint.factor
index 096a5547c5..4586c08542 100644
--- a/basis/alien/prettyprint/prettyprint.factor
+++ b/basis/alien/prettyprint/prettyprint.factor
@@ -36,9 +36,11 @@ M: typedef-word synopsis*
     [ pprint-c-type ] [ text ] bi* ;
 
 : pprint-function-args ( word -- )
-    [ def>> fourth ] [ stack-effect in>> ] bi zip unclip-last
-    [ [ first2 "," append pprint-function-arg ] each ] dip
-    first2 pprint-function-arg ;
+    [ def>> fourth ] [ stack-effect in>> ] bi zip [ ] [
+        unclip-last
+        [ [ first2 "," append pprint-function-arg ] each ] dip
+        first2 pprint-function-arg
+    ] if-empty ;
 
 M: alien-function-word definer
     drop \ FUNCTION: \ ; ;