Paste: alien.prettyprint fix

Author: ex_rzr
Mode: patch
Date: Sun, 30 May 2010 17:02:32
Plain Text | 
diff --git a/basis/alien/prettyprint/prettyprint.factor b/basis/alien/prettyprint/prettyprint.factor
index 8ba1328..e7cb55b 100644
--- a/basis/alien/prettyprint/prettyprint.factor
+++ b/basis/alien/prettyprint/prettyprint.factor
@@ -102,11 +102,12 @@ M: alien-callback-type-word synopsis*
         [ seeing-word ]
         [ "callback-library" word-prop pprint-library ]
         [ definer. ]
-        [ def>> first pprint-c-type ]
+        [ def>> first first pprint-c-type ]
         [ pprint-word ]
         [
             <block "(" text 
-            [ def>> second ] [ "callback-effect" word-prop in>> ] bi
+            [ def>> first second ]
+            [ "callback-effect" word-prop in>> ] bi
             pprint-function-args
             ")" text block>
         ]

New Annotation

Summary:
Author:
Mode:
Body: