Suppress all warnings

I have compiled a series of Scheme files to create an intepreter
which I use to execute the scheme code. The main module looks like this:

(module zzz
   (import (init "0-init.scm"))
... lots more import lines
   (eval   (export-all))
   (main start))

(define (start argv)
   (if (null? (cdr argv))
       (repl)
       (load (car (reverse argv)))))

(define-macro (defmacro name . forms)
   `(define-macro (,name . ,(car forms)) ,@(cdr forms)))

(defmacro error (arg1 . rest)
   (if (null? rest)
       `(myerror ,arg1 "" "")
       (if (null? (cdr rest))
           `(myerror ,arg1 ,(car rest) "")
           `(myerror ,arg1 ,(car rest) ,(car (cdr rest))))))

The resulting executable works, but produces a lot of extra output
such as warning messages. For example:



Starting Execution...
#t

#<output_port:stdout>
tr-runtime
/tempb
/mjvm_estack

File "/tmp/tmp-17593-002.txt", line 21, character 585:
#  (define /i '())
#  ^
*** WARNING:bigloo:eval

Redefinition of compiled variable -- /i
     1. load, /tmp/tmp-17593-002.txt:21
/i
/mjvm_flag_jump
/mjvm_locals
/tempa
/tempres
/mjvm_mstack
/mjvm_arrays
   10  9  8  7  6  5  4  3  2  1#t
/tmp/t117593.scm

#<output_port:stdout>
Execution time: 0


My Scheme program generated the lines "Starting Execution...",
"  10  9  8  7  6  5  4  3  2  1" and "Execution time: 0".
Everything else is generated by the interpreter.

Is it possible to suppress all output except that generated
by explicit "display" or "print" calls?


-- 
			Martin

Dr Martin Ward | Email: [email protected] | http://www.gkc.org.uk
G.K.Chesterton site: http://www.gkc.org.uk/gkc | Erdos number: 4