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

quoting parameter and not prefab structs

Browse Source
This commit is contained in:
Blake Johnson 2010-08-24 17:12:32 -06:00 committed by Jay McCarthy
parent 1f084da620
commit 893294674a
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -425,13 +425,17 @@
(define (or-pred? v . ps)
(ormap (lambda (?) (? v)) ps))
(define quoting? (make-parameter #f))
(define (shareable? v)
(not (or-pred? v char? maybe-same-as-fixnum? empty? boolean? void?)))
(not (or quoting? (or-pred? v char? maybe-same-as-fixnum? empty? boolean? void?))))
(define (maybe-same-as-fixnum? v)
(and (exact-integer? v)
(and (v . >= . -1073741824) (v . <= . 1073741823))))
(define (out-anything v out)
(out-shared
v out
@ -771,7 +775,8 @@
[else
(out-byte CPT_QUOTE out)
(if (quoted? v)
(out-anything (quoted-v v) out)
(parameterize ([quoting? #t])
(out-anything (quoted-v v) out))
(let ([s (open-output-bytes)])
(parameterize ([pretty-print-size-hook
(lambda (v mode port)

2
collects/compiler/zo-structs.rkt
View File

@ -22,7 +22,7 @@
(define-syntax-rule (define-form-struct* id id+par ([field-id field-contract] ...))
(begin
(define-struct id+par (field-id ...) #:prefab)
(define-struct id+par (field-id ...))
#;(provide (struct-out id))
(provide/contract
[struct id ([field-id field-contract] ...)])))