From 5f08e63cb82b9778a09f445e41a205a1c14229d2 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 25 Jun 2012 15:56:04 -0400 Subject: [PATCH] Disable unused code. original commit: 08c3f784766f6bc0957fe482fcc91924952a61fc --- collects/typed-racket/rep/rep-utils.rkt | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/collects/typed-racket/rep/rep-utils.rkt b/collects/typed-racket/rep/rep-utils.rkt index 57253ef5..267a1873 100644 --- a/collects/typed-racket/rep/rep-utils.rkt +++ b/collects/typed-racket/rep/rep-utils.rkt @@ -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)