Fixed a bug where predicates would sometimes fail to match 0.0

original commit: 80ece9023aa583428be9292f120ee25f02cd161e
This commit is contained in:
lvilnis 2011-09-08 20:24:04 -04:00 committed by Vincent St-Amour
commit 6ba006538a
631 changed files with 1310 additions and 1238 deletions

View File

@ -1,5 +1,5 @@
#;
(exn-pred 4)
(exn-pred 2)
#lang typed/racket
(: bar : (String -> String))
(: bar : (Number -> Number))

View File

@ -1,6 +1,6 @@
#lang typed-scheme
(require typed-scheme/base-env/extra-procs)
(require typed-racket/base-env/extra-procs)
(map + (list 1 2 3) (list 10 20 30) (list 'a 'b 'c))

View File

@ -2,7 +2,7 @@
(exn-pred 10)
#lang typed-scheme
(require typed-scheme/base-env/extra-procs)
(require typed-racket/base-env/extra-procs)
(: map-with-funcs (All (b ...) ((b ... b -> b) ... b -> (b ... b -> (values b ... b)))))
(define (map-with-funcs . fs)

View File

@ -0,0 +1,6 @@
#lang racket/base
(require racket/runtime-path)
(define-runtime-path run "run.rkt")
(parameterize ([current-command-line-arguments '#("--nightly")])
(dynamic-require run #f))

View File

@ -1,7 +1,7 @@
#lang racket
(require racket/runtime-path
rackunit rackunit/text-ui
typed-scheme/optimizer/logging)
typed-racket/optimizer/logging)
(provide optimization-tests missed-optimization-tests
test-opt test-missed-optimization test-file?

Some files were not shown because too many files have changed in this diff Show More