minimize dependencies
This commit is contained in:
parent
fd5e9d4d63
commit
499fe40f8a
|
@ -1,7 +1,7 @@
|
||||||
|
|
||||||
(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
|
||||||
|
@ -17,7 +17,8 @@
|
||||||
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)
|
||||||
|
(void)
|
||||||
(raise-type-error '|prop:print-convert-constructor-name guard|
|
(raise-type-error '|prop:print-convert-constructor-name guard|
|
||||||
"symbol"
|
"symbol"
|
||||||
s))
|
s))
|
||||||
|
@ -28,8 +29,10 @@
|
||||||
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)
|
||||||
|
#f)
|
||||||
|
(void)
|
||||||
(raise-type-error '|prop:print-converter|
|
(raise-type-error '|prop:print-converter|
|
||||||
"procedure (arity 2)"
|
"procedure (arity 2)"
|
||||||
p))
|
p))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user