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

View File

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