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