From 37daa2bf65f1a6efa8ec6579092d8a756608b96b Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Thu, 18 Dec 2014 14:38:21 -0500 Subject: [PATCH] Remove dependency on `compatibility/mlist`. --- pkgs/racket-test-core/tests/racket/for.rktl | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/pkgs/racket-test-core/tests/racket/for.rktl b/pkgs/racket-test-core/tests/racket/for.rktl index 30ac497035..c89364e8b7 100644 --- a/pkgs/racket-test-core/tests/racket/for.rktl +++ b/pkgs/racket-test-core/tests/racket/for.rktl @@ -3,8 +3,7 @@ (Section 'for) -(require compatibility/mlist - "for-util.rkt") +(require "for-util.rkt") (test-sequence [(0 1 2)] 3) (test-sequence [(0 1 2)] (in-range 3)) @@ -16,8 +15,8 @@ (test-sequence [(a b c)] '(a b c)) (test-sequence [(a b c)] (in-list '(a b c))) -(test-sequence [(a b c)] (mlist 'a 'b 'c)) -(test-sequence [(a b c)] (in-mlist (mlist 'a 'b 'c))) +(test-sequence [(a b c)] (mcons 'a (mcons 'b (mcons 'c empty)))) +(test-sequence [(a b c)] (in-mlist (mcons 'a (mcons 'b (mcons 'c empty))))) (test-sequence [(a b c)] #(a b c)) (test-sequence [(a b c)] (in-vector #(a b c))) (test-sequence [(a b c)] (in-vector (chaperone-vector #(a b c) (lambda (vec i val) val) (lambda (vec i val) val))))