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

Rephrase a missed optimization message.

Browse Source 
original commit: 484fb029f100562891e50d073826fb38768cb0c1
This commit is contained in:
Vincent St-Amour 2011-06-02 12:35:58 -04:00
parent 2413e0d498
commit 289457fa27
5 changed files with 5 additions and 5 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 value -- caused by: 16:1 sqrt
unexpected-complex.rkt 16:0 (#%app sqrt (quote 4)) -- unexpected complex type -- caused by: 16:1 sqrt
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 value -- caused by: 10:12 log
invalid-log-complex.rkt 10:11 (#%app log (quote 2.0)) -- unexpected complex type -- caused by: 10:12 log
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 value -- caused by: 9:1 sqrt
invalid-sqrt.rkt 9:0 (#%app sqrt (quote -2.0)) -- unexpected complex type -- caused by: 9:1 sqrt
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 value -- caused by: 20:32 sqrt
sqrt-segfault.rkt 20:31 (#%app sqrt dist2) -- unexpected complex type -- caused by: 20:32 sqrt
)
#lang typed/scheme

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

@ -378,7 +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 value"
(log-missed-optimization "unexpected complex type"
this-syntax #'e.op))
;; We don't actually want to match.
#:when #f