steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

alien.prettyprint: don't print ; or declarations for alien words.

locals-and-roots
John Benediktsson 2016-04-07 07:38:09 -07:00
parent 880ec55d6f
commit d15f6459b8
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/alien/prettyprint/prettyprint.factor
View File

@ -78,7 +78,7 @@ M: typedef-word synopsis*
] tri ; inline ] tri ; inline
M: alien-function-alias-word definer M: alien-function-alias-word definer
drop \ FUNCTION-ALIAS: \ ; ; drop \ FUNCTION-ALIAS: f ;
M: alien-function-alias-word definition drop f ; M: alien-function-alias-word definition drop f ;
M: alien-function-alias-word synopsis* M: alien-function-alias-word synopsis*
{ {
@ -88,9 +88,10 @@ M: alien-function-alias-word synopsis*
[ pprint-word ] [ pprint-word ]
[ [ def>> third text ] pprint-function ] [ [ def>> third text ] pprint-function ]
} cleave ; } cleave ;
M: alien-function-alias-word declarations. drop ;
M: alien-function-word definer M: alien-function-word definer
drop \ FUNCTION: \ ; ; drop \ FUNCTION: f ;
M: alien-function-word synopsis* M: alien-function-word synopsis*
{ {
[ seeing-word ] [ seeing-word ]
@ -100,7 +101,7 @@ M: alien-function-word synopsis*
} cleave ; } cleave ;
M: alien-callback-type-word definer M: alien-callback-type-word definer
drop \ CALLBACK: \ ; ; drop \ CALLBACK: f ;
M: alien-callback-type-word definition drop f ; M: alien-callback-type-word definition drop f ;
M: alien-callback-type-word synopsis* M: alien-callback-type-word synopsis*
{ {