Merge branch 'master' of git://factorcode.org/git/factor
						commit
						36bed1faab
					
				| 
						 | 
				
			
			@ -18,7 +18,7 @@ SYMBOL: begin
 | 
			
		|||
    over push 0 begin ;
 | 
			
		||||
 | 
			
		||||
: finish-decoding ( buf ch state -- str )
 | 
			
		||||
    begin eq? [ decode-error ] unless drop { } like ;
 | 
			
		||||
    begin eq? [ decode-error ] unless drop "" like ;
 | 
			
		||||
 | 
			
		||||
: decode ( seq quot -- str )
 | 
			
		||||
    >r [ length <sbuf> 0 begin ] keep r> each
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue