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

Remove one-armed if handling.

Browse Source 
This is no longer possible since #%kernel `if` requires two arms.
This commit is contained in:
Sam Tobin-Hochstadt 2013-10-26 14:05:45 -04:00 committed by Vincent St-Amour
parent 05dcb2847c
commit dc79012a5c
1 changed files with 0 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pkgs/errortrace-pkgs/errortrace-lib/errortrace/stacktrace.rkt
View File

@ -520,14 +520,6 @@
(rebuild disarmed-expr (list (cons #'tst w-tst) (rebuild disarmed-expr (list (cons #'tst w-tst)
(cons #'thn w-thn) (cons #'thn w-thn)
(cons #'els w-els))))))] (cons #'els w-els))))))]
[(if tst thn)
(let ([w-tst (annotate (syntax tst) phase)]
[w-thn (annotate (syntax thn) phase)])
(with-mrk* expr
(rearm
expr
(rebuild disarmed-expr (list (cons #'tst w-tst)
(cons #'thn w-thn))))))]
[(with-continuation-mark . body) [(with-continuation-mark . body)
(with-mrk* expr (with-mrk* expr
(rearm (rearm