txon: can just use replace instead of re-replace.
							parent
							
								
									478cc0bb98
								
							
						
					
					
						commit
						2ed87ace0f
					
				| 
						 | 
				
			
			@ -2,15 +2,15 @@
 | 
			
		|||
! See http://factorcode.org/license.txt for BSD license
 | 
			
		||||
 | 
			
		||||
USING: assocs combinators combinators.short-circuit formatting
 | 
			
		||||
grouping hashtables io kernel make math math.parser regexp
 | 
			
		||||
sequences splitting strings unicode.categories ;
 | 
			
		||||
grouping hashtables io kernel make math math.parser sequences
 | 
			
		||||
splitting strings unicode.categories ;
 | 
			
		||||
 | 
			
		||||
IN: txon
 | 
			
		||||
 | 
			
		||||
<PRIVATE
 | 
			
		||||
 | 
			
		||||
: decode-value ( string -- string' )
 | 
			
		||||
    R" \\`" "`" re-replace ;
 | 
			
		||||
    "\\`" "`" replace ;
 | 
			
		||||
 | 
			
		||||
: `? ( ch1 ch2 -- ? )
 | 
			
		||||
    [ CHAR: \ = not ] [ CHAR: ` = ] bi* and ;
 | 
			
		||||
| 
						 | 
				
			
			@ -58,7 +58,7 @@ PRIVATE>
 | 
			
		|||
<PRIVATE
 | 
			
		||||
 | 
			
		||||
: encode-value ( string -- string' )
 | 
			
		||||
    R" `" "\\`" re-replace ;
 | 
			
		||||
    "`" "\\`" replace ;
 | 
			
		||||
 | 
			
		||||
PRIVATE>
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
		Reference in New Issue