FUEL: Bug fix: escape ';' in fuel pretty print.

db4
Jose A. Ortega Ruiz 2009-01-30 00:33:13 +01:00
parent 2ea9d0bce1
commit a5cc358f19
1 changed files with 1 additions and 1 deletions

View File

@ -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