Undo the following revisions:
r3839 r3825 r3823 r3821 r3820 (undo only the changes in drscheme/private/debug.ss) r3792 r3791 They will be re-done after v352 is released svn: r3843 original commit: 5099b078c6bc07d83e0b11d486e342905a87ede4
This commit is contained in:
parent
7dff7ec133
commit
e357d38c7c
|
@ -4243,7 +4243,7 @@
|
|||
;; (at the end, becuase they are slow w/out .zo files)
|
||||
;;
|
||||
|
||||
(test/spec-passed
|
||||
(test/spec-passed
|
||||
'provide/contract1
|
||||
'(let ()
|
||||
(eval '(module contract-test-suite1 mzscheme
|
||||
|
@ -4417,19 +4417,6 @@
|
|||
[s-a 3])))
|
||||
(eval '(require n))))
|
||||
|
||||
(test/spec-passed
|
||||
'provide/contract11
|
||||
'(parameterize ([current-namespace (make-namespace)])
|
||||
(eval '(module m mzscheme
|
||||
(require (lib "contract.ss"))
|
||||
(define x 1)
|
||||
(provide/contract [rename x y integer?]
|
||||
[rename x z integer?])))
|
||||
(eval '(module n mzscheme
|
||||
(require m)
|
||||
(+ y z)))
|
||||
(eval '(require n))))
|
||||
|
||||
;; this test is broken, not sure why
|
||||
#|
|
||||
(test/spec-failed
|
||||
|
|
Loading…
Reference in New Issue
Block a user