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