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

fix test for check-not-unsafe-undefined

Browse Source
This commit is contained in:
Matthew Flatt 2014-04-15 20:04:53 -06:00
parent 2b63977f24
commit 6452568753
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
pkgs/racket-pkgs/racket-test/tests/racket/optimize.rktl
View File

@ -6,7 +6,7 @@
(require racket/flonum (require racket/flonum
racket/extflonum racket/extflonum
racket/fixnum racket/fixnum
racket/undefined racket/unsafe/undefined
racket/unsafe/ops racket/unsafe/ops
compiler/zo-parse compiler/zo-parse
compiler/zo-marshal) compiler/zo-marshal)
@ -19,7 +19,7 @@
(namespace-require 'racket/flonum) (namespace-require 'racket/flonum)
(namespace-require 'racket/extflonum) (namespace-require 'racket/extflonum)
(namespace-require 'racket/fixnum) (namespace-require 'racket/fixnum)
(namespace-require 'racket/undefined) (namespace-require 'racket/unsafe/undefined)
(eval '(define-values (prop:thing thing? thing-ref) (eval '(define-values (prop:thing thing? thing-ref)
(make-struct-type-property 'thing))) (make-struct-type-property 'thing)))
(eval '(struct rock (x) #:property prop:thing 'yes)) (eval '(struct rock (x) #:property prop:thing 'yes))
@ -793,7 +793,7 @@
(bin-exact 3.3t0 'extflvector-ref (extflvector 1.1t0 2.2t0 3.3t0) 2) (bin-exact 3.3t0 'extflvector-ref (extflvector 1.1t0 2.2t0 3.3t0) 2)
(un-exact 3 'extflvector-length (extflvector 1.1t0 2.2t0 3.3t0) #t) (un-exact 3 'extflvector-length (extflvector 1.1t0 2.2t0 3.3t0) #t)
(bin-exact 5 'check-not-undefined 5 'check-not-undefined #:bad-value undefined) (bin-exact 5 'check-not-unsafe-undefined 5 'check-not-unsafe-undefined #:bad-value unsafe-undefined)
) )
(let ([test-setter (let ([test-setter