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

Removed dead code

Browse Source
This commit is contained in:
William J. Bowman 2015-09-25 15:16:44 -04:00
parent 1fd96f0140
commit 2666080278
No known key found for this signature in database
GPG Key ID: DDD48D26958F0D1A
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
stdlib/sugar.rkt
View File

@ -67,12 +67,6 @@
[(define id body) [(define id body)
#'(real-define id body)])) #'(real-define id body)]))
(define-syntax (define-rec syn)
(syntax-case syn (:)
[(_ (name (a : t) ... : t_res) body)
#'(define name (fix (name : (forall* (a : t) ... t_res))
(lambda* (a : t) ... body)))]))
(begin-for-syntax (begin-for-syntax
(define (rewrite-clause clause) (define (rewrite-clause clause)
(syntax-case clause (: IH:) (syntax-case clause (: IH:)