From db9ffaaae82bc4516c899e4fbe82e8b83565694c Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 3 May 2010 18:03:01 -0400 Subject: [PATCH] use `vector-member' original commit: d5776a12666c507525df54c2f217f819dd407f33 --- collects/tests/typed-scheme/run.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/tests/typed-scheme/run.rkt b/collects/tests/typed-scheme/run.rkt index 993c6d14..f2ff3c10 100644 --- a/collects/tests/typed-scheme/run.rkt +++ b/collects/tests/typed-scheme/run.rkt @@ -1,6 +1,7 @@ -#lang scheme/base +#lang racket/base +(require racket/vector) (require "main.ss") (current-namespace (make-base-namespace)) -(unless (= 0 (go/text (member "unit" (vector->list (current-command-line-arguments))))) +(unless (= 0 (go/text (vector-member "unit" (current-command-line-arguments)))) (error "Typed Scheme Tests did not pass."))