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
This commit is contained in:
Blake Johnson 2010-07-27 12:48:57 -06:00 committed by Jay McCarthy
parent 599ffacd47
commit 53fdc09e7a
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -778,9 +778,9 @@
out)]
[(struct let-one (rhs body flonum? unused?))
(out-byte (cond
[flonum? CPT_LET_ONE_FLONUM]
[unused? CPT_LET_ONE_UNUSED]
[else CPT_LET_ONE])
[flonum? CPT_LET_ONE_FLONUM]
[unused? CPT_LET_ONE_UNUSED]
[else CPT_LET_ONE])
out)
(out-expr (protect-quote rhs) out)
(out-expr (protect-quote body) out)]
@ -1078,14 +1078,14 @@
(out-wrapped expr out)]
[else
(out-byte CPT_QUOTE out)
(let ([s (open-output-bytes)])
(write (if (quoted? expr)
(quoted-v expr)
expr) s)
(out-byte CPT_ESCAPE out)
(let ([bstr (get-output-bytes s)])
(out-number (bytes-length bstr) out)
(out-bytes bstr out)))]))
(if (quoted? expr)
(out-data (quoted-v expr) out)
(let ([s (open-output-bytes)])
(write expr s)
(out-byte CPT_ESCAPE out)
(let ([bstr (get-output-bytes s)])
(out-number (bytes-length bstr) out)
(out-bytes bstr out))))]))
(define-struct quoted (v) #:prefab)