How can I create and execute a function/method while a script is running? - hy

Question

A part of a script I'm making requires that new functions be defined and made available on during execution. The function defines OK, but I'm getting an error when I try to use it:
(import io)
(defn exec-code [str]
(eval (apply read [] {"from_file" (.StringIO io str)})))
(setv ectest "(print \"Code execution function works!\")")
(exec-code ectest)
(setv testfunc [])
(.append testfunc "(defn -testfunc- [] (print \"Self-execution works!\"))")
(.append testfunc "(-testfunc-)")
(for [line testfunc] (print line) (exec-code line))
Results in:
Code execution function works!
(defn -testfunc- [] (print "Self-execution works!"))
(-testfunc-)
Traceback (most recent call last):
File "/usr/bin/hy", line 9, in <module>
load_entry_point('hy==0.11.0', 'console_scripts', 'hy')()
File "/usr/lib/python3/dist-packages/hy/cmdline.py", line 347, in hy_main
sys.exit(cmdline_handler("hy", sys.argv))
File "/usr/lib/python3/dist-packages/hy/cmdline.py", line 335, in cmdline_handler
return run_file(options.args[0])
File "/usr/lib/python3/dist-packages/hy/cmdline.py", line 210, in run_file
import_file_to_module("__main__", filename)
File "/usr/lib/python3/dist-packages/hy/importer.py", line 78, in import_file_to_module
eval(ast_compile(_ast, fpath, "exec"), mod.__dict__)
File "code-trace.hy", line 41, in <module>
(for [line testfunc] (print line) (exec-code line))
File "code-trace.hy", line 33, in exec_code
(eval (apply read [] {"from_file" (.StringIO io str)})))
File "/usr/lib/python3/dist-packages/hy/importer.py", line 126, in hy_eval
return eval(ast_compile(expr, "<eval>", "eval"), namespace)
File "<eval>", line 1, in <module>
NameError: name '_testfunc_' is not defined

Answer 1

This looks like a namespace issue. eval works in an isolate namespace I think, so the second call knows nothing about the first one.
Try this:
(defn exec-code [str]
(eval (apply read [] {"from_file" (.StringIO io str)}) (globals)))
Which specifies the namespace to be globals. This outputs:
Code execution function works!
(defn -testfunc- [] (print "Self-execution works!"))
(-testfunc-)
Self-execution works!
for me.