alien.prettyprint: fix wrapping when prettyprinting pointer:

2010-06-02 03:11:46 -04:00 · 2010-06-02 03:11:46 -04:00 · be1b5e6627
parent 83e78c353e
commit be1b5e6627
1 changed files with 2 additions and 1 deletions
--- a/basis/alien/prettyprint/prettyprint.factor
+++ b/basis/alien/prettyprint/prettyprint.factor
@ -41,7 +41,8 @@ PRIVATE>
 : pprint-c-type ( c-type -- )
    [ c-type-string ] keep present-text ;

-M: pointer pprint* \ pointer: pprint-word to>> pprint-c-type ;
+M: pointer pprint*
+    <flow \ pointer: pprint-word to>> pprint* block> ;

 M: typedef-word definer drop \ TYPEDEF: f ;