Creating functions from strings

[cormullion]

Is there a way to create a function definition if you have the body as a string?

Eg

Code: Select all

(set 'body "(println x) (exit)")
(define (func) body)

[rickyboy]

Hey cormullion,

I don't know exactly what you're driving at, but does this help?

Code: Select all

(define (string2func str func-name)
  (eval-string (string "(define (" func-name ") " str ")")))

(set 'x 42)
(set 'body "(println \"Hello\") (println x)")

> (string2func body 'func)
(lambda () (println "Hello") (println x))
> (func)
Hello
42
42

[cormullion]

Ah, yes - I was thinking about list and string. I must have forgotten that eval-string doesn't always run immediately...

Thanks! Glad you haven't gone over to Arc completely, Ricky!

[rickyboy]

Glad you haven't gone over to Arc completely, Ricky!

:-)