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

Disable unused code.

Browse Source 
original commit: 08c3f784766f6bc0957fe482fcc91924952a61fc
This commit is contained in:
Sam Tobin-Hochstadt 2012-06-25 15:56:04 -04:00
parent 76f157026a
commit 5f08e63cb8
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,6 +1,5 @@
#lang racket/base
(require "../utils/utils.rkt"
mzlib/pconvert
(require "../utils/utils.rkt"
racket/match
(contract-req)
"free-variance.rkt"
@ -369,6 +368,7 @@
(define (replace-syntax rep stx)
(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))))
@ -376,11 +376,13 @@
[(? (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)))
(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)]))
(current-print-convert-hook converter)
;(require mzlib/pconvert)
;(current-print-convert-hook converter)