37 lines
1.2 KiB
Scheme
37 lines
1.2 KiB
Scheme
|
|
(module pconvert-prop mzscheme
|
|
|
|
(provide prop:print-convert-constructor-name
|
|
print-convert-named-constructor?
|
|
print-convert-constructor-name
|
|
prop:print-converter
|
|
print-converter?
|
|
print-converter-proc)
|
|
|
|
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; property recognized by print convert to set a value's constructor name:
|
|
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(define-values (prop:print-convert-constructor-name
|
|
print-convert-named-constructor?
|
|
print-convert-constructor-name)
|
|
(make-struct-type-property 'print-convert-constructor-name
|
|
(lambda (s info)
|
|
(unless (symbol? s)
|
|
(raise-type-error '|prop:print-convert-constructor-name guard|
|
|
"symbol"
|
|
s))
|
|
s)))
|
|
|
|
(define-values (prop:print-converter
|
|
print-converter?
|
|
print-converter-proc)
|
|
(make-struct-type-property 'print-converter
|
|
(lambda (p info)
|
|
(unless (and (procedure? p)
|
|
(procedure-arity-includes? p 2))
|
|
(raise-type-error '|prop:print-converter|
|
|
"procedure (arity 2)"
|
|
p))
|
|
p))))
|