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

moved run to xrun file

Browse Source
This commit is contained in:
Matthias Felleisen 2013-10-18 15:36:26 -04:00
parent 5de5eaaa14
commit 29de8558c9
3 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pkgs/htdp-pkgs/htdp-test/2htdp/utest/balls.rkt
View File

@ -1,5 +1,7 @@
#lang scheme #lang scheme
(provide run)
(require 2htdp/universe htdp/testing) (require 2htdp/universe htdp/testing)
;; rotate through a bunch of players with the ball until nobody is left ;; rotate through a bunch of players with the ball until nobody is left
@ -84,4 +86,4 @@
(on-msg switch) (on-msg switch)
(on-disconnect disconnect))) (on-disconnect disconnect)))
(run 'go) ; (run 'go)

2
pkgs/htdp-pkgs/htdp-test/2htdp/utest/player
View File

@ -3,7 +3,7 @@
exec mred -qu "$0" ${1+"$@"} exec mred -qu "$0" ${1+"$@"}
|# |#
#lang scheme #lang racket
(require "shared.ss") (require "shared.ss")

14
pkgs/htdp-pkgs/htdp-test/2htdp/utest/xrun
View File

@ -1,3 +1,11 @@
mred balls.ss & #! /bin/sh
./player carl & #|
./player sam & exec racket -tm "$0" ${1+"$@"}
|#
#lang racket
(require 2htdp/universe "balls.rkt" "shared.ss")
(launch-many-worlds (run 'go) (make-player 200 "carl") (make-player 200 "sam"))