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

Remove unused code.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2011-04-18 15:40:20 -04:00
parent 7934ac3461
commit 187dc63493
1 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/typed-scheme/private/colon.rkt
View File

@ -9,18 +9,6 @@
(provide :) (provide :)
(define-syntax (: stx) (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* (define stx*
;; make it possible to add another colon after the id for clarity ;; 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 ;; and in that case, a `->' on the RHS does not need to be