From 22229fd8ac714e0ab0db2d0018c359901688255c Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sat, 20 Sep 2014 23:48:57 -0400 Subject: [PATCH] Get rid of some unused code. Looks like some aborted attempt at abstraction, which is no longer used. original commit: 2e6b82ab8ec0cc63837759873e412831de5a1826 --- .../typed-racket-lib/typed-racket/types/printer.rkt | 8 -------- 1 file changed, 8 deletions(-) diff --git a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/types/printer.rkt b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/types/printer.rkt index 60921782..a3653aff 100644 --- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/types/printer.rkt +++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/types/printer.rkt @@ -204,12 +204,6 @@ (define (arr->sexp arr) (match arr [(arr: dom rng rest drest kws) - (define out (open-output-string)) - (define (fp . args) (apply fprintf out args)) - (define (fp/filter fmt ret . rest) - (if (print-complex-filters?) - (apply fp fmt ret rest) - (fp "-> ~a" ret))) (append (list '->) (map type->sexp dom) @@ -273,8 +267,6 @@ ;; format->* : (Listof arr) -> S-Expression ;; Format arrs that correspond to a ->* type (define (format->* arrs) - (define out (open-output-string)) - (define (fp . args) (apply fprintf out args)) ;; see type-contract.rkt, which does something similar and this code ;; was stolen from/inspired by/etc. (match* ((first arrs) (last arrs))