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

use `vector-member'

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2010-05-03 18:03:01 -04:00
parent 14d1a394f1
commit d5776a1266
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/tests/typed-scheme/run.rkt
View File

@ -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."))