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

mzscheme -r quiet.ss beginner.ss

svn: r1493

collects/tests/mzscheme/quiet.ss

@@ -3,7 +3,10 @@
  'quiet-load
  #f
  (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 
 			   always-evt