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

schemify: add reduction of (not #f)

Browse Source
This commit is contained in:
Gustavo Massaccesi 2018-06-14 11:15:39 -03:00
parent 96161f68eb
commit 9cd3798ca9
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/schemify/optimize.rkt
View File

@ -19,6 +19,10 @@
(if (literal? t) (if (literal? t)
(if (unwrap t) e1 e2) (if (unwrap t) e1 e2)
v)] v)]
[`(not ,t)
(if (literal? t)
`,(not (unwrap t))
v)]
[`(procedure? ,e) [`(procedure? ,e)
(define u (unwrap e)) (define u (unwrap e))
(cond (cond