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: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:1 + -- unboxed binary float complex
unexpected-complex.rkt 17:3 1.2+3.4i -- unboxed literal 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 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 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 18:15 - -- binary float
sqrt-segfault.rkt 19: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 #lang typed/scheme

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

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