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

Remove useless irritant.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-06-02 17:59:15 -04:00
parent 9528f63cf0
commit f547b99ed5
5 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/typed-scheme/optimizer/missed-optimizations/unexpected-complex.rkt
View File

@ -1,6 +1,6 @@
#;
(
unexpected-complex.rkt 16:0 (#%app sqrt (quote 4)) -- unexpected complex type -- caused by: 16:1 sqrt
unexpected-complex.rkt 16:0 (#%app sqrt (quote 4)) -- unexpected complex type
unexpected-complex.rkt 17:0 (#%app + (quote 1.2+3.4i) (quote 2.0)) -- unboxed float complex
unexpected-complex.rkt 17:1 + -- unboxed binary float complex
unexpected-complex.rkt 17:3 1.2+3.4i -- unboxed literal

2
collects/tests/typed-scheme/optimizer/tests/invalid-log-complex.rkt
View File

@ -1,6 +1,6 @@
#;
(
invalid-log-complex.rkt 10:11 (#%app log (quote 2.0)) -- unexpected complex type -- caused by: 10:12 log
invalid-log-complex.rkt 10:11 (#%app log (quote 2.0)) -- unexpected complex type
0.6931471805599453
)

2
collects/tests/typed-scheme/optimizer/tests/invalid-sqrt.rkt
View File

@ -1,6 +1,6 @@
#;
(
invalid-sqrt.rkt 9:0 (#%app sqrt (quote -2.0)) -- unexpected complex type -- caused by: 9:1 sqrt
invalid-sqrt.rkt 9:0 (#%app sqrt (quote -2.0)) -- unexpected complex type
0+1.4142135623730951i
)

2
collects/tests/typed-scheme/optimizer/tests/sqrt-segfault.rkt
View File

@ -2,7 +2,7 @@
(
sqrt-segfault.rkt 18:15 - -- binary float
sqrt-segfault.rkt 19:15 * -- binary float
sqrt-segfault.rkt 20:31 (#%app sqrt dist2) -- unexpected complex type -- caused by: 20:32 sqrt
sqrt-segfault.rkt 20:31 (#%app sqrt dist2) -- unexpected complex type
)
#lang typed/scheme

3
collects/typed-scheme/optimizer/float-complex.rkt
View File

@ -378,8 +378,7 @@
#:when (when (and (in-complex-layer? #'e)
(for/and ([subexpr (in-list (syntax->list #'(e.args ...)))])
(subtypeof? subexpr -Real)))
(log-missed-optimization "unexpected complex type"
this-syntax #'e.op))
(log-missed-optimization "unexpected complex type" this-syntax))
;; We don't actually want to match.
#:when #f
#:with real-binding #'#f ; required, otherwise syntax/parse is not happy