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

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

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