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

Make quiet.ss use a command-line file if specified, for example:

Browse Source 
mzscheme -r quiet.ss beginner.ss

svn: r1493
This commit is contained in:
Eli Barzilay 2005-12-02 16:18:36 +00:00
parent a8915e5ff6
commit 1539243d5c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/tests/mzscheme/quiet.ss
View File

@ -3,7 +3,10 @@
'quiet-load 'quiet-load
#f #f
(lambda () (lambda ()
(namespace-set-variable-value! 'quiet-load "all.ss"))) (namespace-set-variable-value!
'quiet-load
(let ([argv (current-command-line-arguments)])
(if (= 1 (vector-length argv)) (vector-ref argv 0) "all.ss")))))
(let ([p (make-output-port 'quiet (let ([p (make-output-port 'quiet
always-evt always-evt