diff --git a/collects/2htdp/utest/ball2.ss b/collects/2htdp/utest/ball2.ss index 529e2fc6a3..5f70267bce 100644 --- a/collects/2htdp/utest/ball2.ss +++ b/collects/2htdp/utest/ball2.ss @@ -1,6 +1,6 @@ #lang scheme/gui -(require "../2htdp/universe.ss") +(require 2htdp/universe) (define-struct unistate (active passive) #:transparent) diff --git a/collects/2htdp/utest/player b/collects/2htdp/utest/player index e26c96e959..f74ff05cf2 100755 --- a/collects/2htdp/utest/player +++ b/collects/2htdp/utest/player @@ -1,5 +1,5 @@ #! /bin/sh -#| +#| -*- scheme -*- exec mred -qu "$0" ${1+"$@"} |# @@ -11,6 +11,6 @@ exec mred -qu "$0" ${1+"$@"} (unless (= (vector-length argv) 1) (error 'player "name of one player expected: $ ./player name")) - + (make-player 200 (string->symbol (vector-ref argv 0)))