symbol defined cannot be found.

[Steven Wu]

I tried a little trick learned from this list, when the attached script 
is run with argument, it goes into interactive mode. That part works, 
however, when after getting into interactive mode, the variable
dmr-tracers and run-log-trace symbol cannot be found. I wonder why this 
is the case.

steve
---
#!/bin/sh
# -*- scheme -*-
main='(module-ref (resolve-module '\''(dmr pythia)) '\'main')'
exec ${GUILE-guile} -l $0 -c "(apply $main (cdr (command-line)))" "$@"
!#
;;; pythia -- Build log analyzer
;;;
;;; usage: pythia [-r|--project-root] [-R|--posix-proj-root]
;;;               [-l|--log-file file] [-p|--patch-list file]
;;;

(define-module (dmr pythia)
  :autoload (ice-9 getopt-long) (getopt-long)
  :use-module (ice-9 readline)
  :use-module (ice-9 rdelim)
  :use-module (ice-9 pretty-print)
  :use-module (ice-9 regex)
  :export (pythia))

(define dmr-tracers '())

(define (run-log-trace)
  (write-line "run log trace"))

(define (interactive-mode)
  (set-repl-prompt! "pythia> ")
  (activate-readline)
  (top-repl))

(define (pythia . args)
  (let* ((parsed-opts (getopt-long
                       (cons "pythia" args)
                       '((root (single-char #\r) (value #t))
                         (posix-root (single-char #\p) (value #t))
                         (mcp-log (single-char #\m) (value #t))
                         (liberty-log (single-char #\l) (value #t))
                         (wim-log (single-char #\w) (value #t))
                         (x86-log (single-char #\x) (value #t)))))
         (mcp-log (option-ref parsed-opts 'mcp-log #f))
         (liberty-log (option-ref parsed-opts 'liberty-log #f))
         (wim-log (option-ref parsed-opts 'wim-log #f))
         (x86-log (option-ref parsed-opts 'x86-log #f))
         (root (option-ref parsed-opts 'root #f))
         (posix-root (option-ref parsed-opts 'posix-root #f)))
    (if (= 0 (length args))
        (interactive-mode)
        (if (and root posix-root)
            (begin
              (write-line mcp-log)
              (cond
               (mcp-log (write-line mcp-log))
               (liberty-log (write-line liberty-log))
               (wim-log (write-line wim-log))
               (x86-log (write-line x86-log)))
              (run-log-trace))))))

(define main pythia)