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

Disable unused code.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2012-06-25 15:56:04 -04:00
parent 794bfa50ec
commit 08c3f78476
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 #lang racket/base
(require "../utils/utils.rkt" (require "../utils/utils.rkt"
mzlib/pconvert
racket/match racket/match
(contract-req) (contract-req)
"free-variance.rkt" "free-variance.rkt"
@ -369,6 +368,7 @@
(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 (converter v basic sub)
(define (gen-constructor sym) (define (gen-constructor sym)
(string->symbol (string-append "make-" (substring (symbol->string sym) 7)))) (string->symbol (string-append "make-" (substring (symbol->string sym) 7))))
@ -376,11 +376,13 @@
[(? (lambda (e) (or (Filter? e) [(? (lambda (e) (or (Filter? e)
(Object? e) (Object? e)
(PathElem? 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))] `(,(gen-constructor tag) ,@(map sub vals))]
[(? Type? [(? Type?
(app (lambda (v) (vector->list (struct->vector v))) (list-rest tag seq fv fi stx key vals))) (app (lambda (v) (vector->list (struct->vector v))) (list-rest tag seq fv fi stx key vals)))
`(,(gen-constructor tag) ,@(map sub vals))] `(,(gen-constructor tag) ,@(map sub vals))]
[_ (basic v)])) [_ (basic v)]))
(current-print-convert-hook converter) ;(require mzlib/pconvert)
;(current-print-convert-hook converter)