Minor cosmetic fixes

db4
Slava Pestov 2009-11-10 21:48:00 -06:00
parent f121961fa4
commit b551721dd9
4 changed files with 5 additions and 3 deletions

View File

@ -333,6 +333,8 @@ M: not-found-in-roots summary drop "Cannot resolve vocab: path" ;
M: wrong-values summary drop "Quotation called with wrong stack effect" ;
M: stack-effect-omits-dashes summary drop "Stack effect must contain “--”" ;
{
{ [ os windows? ] [ "debugger.windows" require ] }
{ [ os unix? ] [ "debugger.unix" require ] }

View File

@ -73,4 +73,4 @@ M: apropos >link ;
INSTANCE: apropos topic
: apropos ( str -- )
<apropos> print-topic ;
<apropos> print-topic nl ;

View File

@ -129,7 +129,7 @@ M: word set-article-parent swap "help-parent" set-word-prop ;
SYMBOL: help-hook
help-hook [ [ print-topic ] ] initialize
help-hook [ [ print-topic nl ] ] initialize
: help ( topic -- )
help-hook get call( topic -- ) ;

View File

@ -25,7 +25,7 @@ ERROR: bad-effect ;
: parse-effect-tokens ( end -- tokens )
[ parse-effect-token dup ] curry [ ] produce nip ;
ERROR: stack-effect-omits-dashes effect ;
ERROR: stack-effect-omits-dashes tokens ;
: parse-effect ( end -- effect )
parse-effect-tokens { "--" } split1 dup