;; console.scm

(module veritas-console-reporter
  ()
  (import chicken scheme extras)

  (define (do-it?) (zero? (random 2)))

  (cond
   ((do-it?) (set! foobar "foobar"))))

;; csc -feature compiling-extension -setup-mode    -s -d0 -O3 -S console.scm -j veritas-console-reporter -o console-reporter.so

(module set-test 
  ()
  (import chicken scheme)
  (set! bar "bar"))

;; csc -feature compiling-extension -setup-mode -s -d0 -O3 -S set-test.scm -j set-test -o set-test.so