Minor cosmetic fixes
parent
f121961fa4
commit
b551721dd9
|
@ -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 ] }
|
||||
|
|
|
@ -73,4 +73,4 @@ M: apropos >link ;
|
|||
INSTANCE: apropos topic
|
||||
|
||||
: apropos ( str -- )
|
||||
<apropos> print-topic ;
|
||||
<apropos> print-topic nl ;
|
||||
|
|
|
@ -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 -- ) ;
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue