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

minimize dependencies

Browse Source
This commit is contained in:
Robby Findler 2010-10-18 16:23:18 -05:00
parent fd5e9d4d63
commit 499fe40f8a
1 changed files with 19 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/mzlib/pconvert-prop.rkt
View File

@ -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))