FUEL: Bug fix: escape ';' in fuel pretty print.
parent
2ea9d0bce1
commit
a5cc358f19
|
@ -12,7 +12,7 @@ GENERIC: fuel-pprint ( obj -- )
|
||||||
<PRIVATE
|
<PRIVATE
|
||||||
|
|
||||||
: fuel-maybe-scape ( ch -- seq )
|
: fuel-maybe-scape ( ch -- seq )
|
||||||
dup "\\\"?#()[]'`" member? [ CHAR: \ swap 2array ] [ 1array ] if ;
|
dup "\\\"?#()[]'`;" member? [ CHAR: \ swap 2array ] [ 1array ] if ;
|
||||||
|
|
||||||
SYMBOL: :restarts
|
SYMBOL: :restarts
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue