(use symbol-utils)

(define foo1 1)

 (define (bar1)
   (print "A " foo1)
   (print "B " (symbol-value (string->symbol "foo1"))))

(bar1)

(module
 modu
 *
 (import chicken scheme)
 (use symbol-utils)
 
 (define foo 1)

 (define (bar)
   (print "A " foo)
   (print "B " (symbol-value (string->symbol "foo")))))

(import modu)

(bar)

;; Output
A 1
B 1
A 1
B #f