Change prompt to something we can copy/paste back into the Factor repl. Add auto-use word. Fixes #301.
							parent
							
								
									aa7f22edc0
								
							
						
					
					
						commit
						b43c069b81
					
				| 
						 | 
				
			
			@ -12,8 +12,8 @@ GENERIC: stream-read-quot ( stream -- quot/f )
 | 
			
		|||
GENERIC# prompt. 1 ( stream prompt -- )
 | 
			
		||||
 | 
			
		||||
: prompt ( -- str )
 | 
			
		||||
    manifest get current-vocab>> [ name>> ] [ "" ] if*
 | 
			
		||||
    auto-use? get [ " - auto" append ] when "( " " )" surround ;
 | 
			
		||||
    manifest get current-vocab>> [ name>> "IN: " prepend ] [ "" ] if* 
 | 
			
		||||
    auto-use? get [ " auto-use" append ] when ;
 | 
			
		||||
 | 
			
		||||
M: object prompt.
 | 
			
		||||
    nip H{ { background T{ rgba f 1 0.7 0.7 1 } } } format bl
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -22,6 +22,8 @@ M: parsing-word stack-effect drop ( parsed -- parsed ) ;
 | 
			
		|||
 | 
			
		||||
SYMBOL: auto-use?
 | 
			
		||||
 | 
			
		||||
: auto-use ( -- ) auto-use? on ;
 | 
			
		||||
 | 
			
		||||
: no-word-restarted ( restart-value -- word )
 | 
			
		||||
    dup word? [
 | 
			
		||||
        dup vocabulary>>
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue