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

Remove unused code.

Browse Source 
original commit: 187dc634933a5652746d5dcb6a263732a9a46b7a
This commit is contained in:
Sam Tobin-Hochstadt 2011-04-18 15:40:20 -04:00
parent c5bfe38e87
commit edd83d1c06
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 :)
(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