Re: Re: intern a top level variable

[Mortimer Cladwell]

I would like to intern and assign a value within a method:

(define (test-intern)
(let* ((name "abc")
       (data "def")
       (name-symbol (gensym name))
       )
  (pretty-print (string-append "symbol: " (symbol->string name-symbol)))
  (set! name-symbol data)))

scheme@(guile-user)> (test-intern)
"symbol: abc3301"
scheme@(guile-user)> abc3301
;;; <unknown-location>: warning: possibly unbound variable `abc3301'
ERROR: In procedure module-lookup: Unbound variable: abc3301

Thanks