minimize dependencies
This commit is contained in:
parent
fd5e9d4d63
commit
499fe40f8a
|
@ -1,12 +1,12 @@
|
||||||
|
|
||||||
(module pconvert-prop mzscheme
|
(module pconvert-prop '#%kernel
|
||||||
|
|
||||||
(provide prop:print-convert-constructor-name
|
(#%provide prop:print-convert-constructor-name
|
||||||
print-convert-named-constructor?
|
print-convert-named-constructor?
|
||||||
print-convert-constructor-name
|
print-convert-constructor-name
|
||||||
prop:print-converter
|
prop:print-converter
|
||||||
print-converter?
|
print-converter?
|
||||||
print-converter-proc)
|
print-converter-proc)
|
||||||
|
|
||||||
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||||
;; property recognized by print convert to set a value's constructor name:
|
;; property recognized by print convert to set a value's constructor name:
|
||||||
|
@ -17,10 +17,11 @@
|
||||||
print-convert-constructor-name)
|
print-convert-constructor-name)
|
||||||
(make-struct-type-property 'print-convert-constructor-name
|
(make-struct-type-property 'print-convert-constructor-name
|
||||||
(lambda (s info)
|
(lambda (s info)
|
||||||
(unless (symbol? s)
|
(if (symbol? s)
|
||||||
(raise-type-error '|prop:print-convert-constructor-name guard|
|
(void)
|
||||||
"symbol"
|
(raise-type-error '|prop:print-convert-constructor-name guard|
|
||||||
s))
|
"symbol"
|
||||||
|
s))
|
||||||
s)))
|
s)))
|
||||||
|
|
||||||
(define-values (prop:print-converter
|
(define-values (prop:print-converter
|
||||||
|
@ -28,9 +29,11 @@
|
||||||
print-converter-proc)
|
print-converter-proc)
|
||||||
(make-struct-type-property 'print-converter
|
(make-struct-type-property 'print-converter
|
||||||
(lambda (p info)
|
(lambda (p info)
|
||||||
(unless (and (procedure? p)
|
(if (if (procedure? p)
|
||||||
(procedure-arity-includes? p 2))
|
(procedure-arity-includes? p 2)
|
||||||
(raise-type-error '|prop:print-converter|
|
#f)
|
||||||
"procedure (arity 2)"
|
(void)
|
||||||
p))
|
(raise-type-error '|prop:print-converter|
|
||||||
|
"procedure (arity 2)"
|
||||||
|
p))
|
||||||
p))))
|
p))))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user