From edd83d1c0672d925f6788ff4599599225ea49ea8 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 18 Apr 2011 15:40:20 -0400 Subject: [PATCH] Remove unused code. original commit: 187dc634933a5652746d5dcb6a263732a9a46b7a --- collects/typed-scheme/private/colon.rkt | 12 ------------ 1 file changed, 12 deletions(-) diff --git a/collects/typed-scheme/private/colon.rkt b/collects/typed-scheme/private/colon.rkt index 58152646..efa4214f 100644 --- a/collects/typed-scheme/private/colon.rkt +++ b/collects/typed-scheme/private/colon.rkt @@ -9,18 +9,6 @@ (provide :) (define-syntax (: stx) - (define-syntax-class arr - (pattern x:id - #:fail-unless (eq? (syntax-e #'x) '->) #f - #:fail-unless (printf "id: ~a ~a\n" - (identifier-binding #'All-kw) - (identifier-transformer-binding #'All-kw)) - #f - #:fail-unless (printf "kw: ~a ~a\n" - (identifier-binding #'t:All) - (identifier-transformer-binding #'t:All)) - #f - #:fail-when #t #f)) (define stx* ;; make it possible to add another colon after the id for clarity ;; and in that case, a `->' on the RHS does not need to be