suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Do not use CPT_ESCAPE for every CPT_QUOTE, instead if it was a protect-quote, then just put the CPT_QUOTE in.

Browse Source 
original commit: 53fdc09e7a
This commit is contained in:
Blake Johnson 2010-07-27 12:48:57 -06:00 committed by Jay McCarthy
parent 9b95b87049
commit d8dae45321
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/compiler/zo-marshal.rkt
View File

@ -1078,14 +1078,14 @@
(out-wrapped expr out)]
[else
(out-byte CPT_QUOTE out)
(if (quoted? expr)
(out-data (quoted-v expr) out)
(let ([s (open-output-bytes)])
(write (if (quoted? expr)
(quoted-v expr)
expr) s)
(write expr s)
(out-byte CPT_ESCAPE out)
(let ([bstr (get-output-bytes s)])
(out-number (bytes-length bstr) out)
(out-bytes bstr out)))]))
(out-bytes bstr out))))]))
(define-struct quoted (v) #:prefab)