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

Add in-complex-layer?.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-05-16 18:39:22 -04:00
parent 2a4a4e8184
commit 2a7254a324
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/typed-scheme/optimizer/numeric-utils.rkt
View File

@ -21,6 +21,9 @@
(and (subtypeof? t -Real) (and (subtypeof? t -Real)
(not (subtypeof? t -Rat)) (not (subtypeof? t -Rat))
(not (subtypeof? t -Flonum)))) (not (subtypeof? t -Flonum))))
(define (in-complex-layer? t)
(and (subtypeof? t -Number)
(not (subtypeof? t -Real))))
(define-syntax-class arith-expr (define-syntax-class arith-expr
(pattern (#%plain-app op:arith-op args ...))) (pattern (#%plain-app op:arith-op args ...)))