Hi Martin, > 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? > > > -- Include the following in your compiled code
(bigloo-warning-set! 0) Please, let us know if this fixes your problem. -- Manuel
