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

Remove unused old printer.

Browse Source
This commit is contained in:
Eric Dobson 2012-08-11 23:31:55 -07:00 committed by Sam Tobin-Hochstadt
parent c9afe15f56
commit 124707921f
1 changed files with 0 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
collects/typed-racket/rep/rep-utils.rkt
View File

@ -370,22 +370,3 @@
(define (replace-syntax rep stx) (define (replace-syntax rep stx)
(replace-field rep stx 3)) (replace-field rep stx 3))
;; useful for debugging printing only
(define (converter v basic sub)
(define (gen-constructor sym)
(string->symbol (string-append "make-" (substring (symbol->string sym) 7))))
(match v
[(? (lambda (e) (or (Filter? e)
(Object? e)
(PathElem? e)))
(app (lambda (v) (vector->list (struct->vector v)))
(list-rest tag seq fv fi stx vals)))
`(,(gen-constructor tag) ,@(map sub vals))]
[(? Type?
(app (lambda (v) (vector->list (struct->vector v))) (list-rest tag seq fv fi stx key vals)))
`(,(gen-constructor tag) ,@(map sub vals))]
[_ (basic v)]))
;(require mzlib/pconvert)
;(current-print-convert-hook converter)