list of functions question

[borisT]

I'm a newbie, I'm trying to write some code that will select and run a function from a list of functions

Typically I'm doing something like this:

Code Select Expand

(define (myfunc) (println "this is myfunc"))

;; define a list of functions
(set 'funclist '(myfunc myfunc myfunc myfunc myfunc))

;; get and run the nth = 2 item of the list
(println "getting func")
(set 'afunc (funclist 2))
(println "calling func ")

(afunc)

Whatever I try I usully get the following error message:

getting func

calling func



ERR: invalid function : (afunc)

Could anyone explain what I'm, doing wrong?

Thanks.

[rrq]

(funclist 2) is the symbol myfunc, and not its "value", which is the function.

Thus, you would need to use

Code Select Expand

(set 'afunc (eval (funclist 2))) so as to make afunc be a copy of the function named by the (funclist 2) symbol.

[borisT]

Makes sense. Thanks for that.

[newBert]

(With some delay...)

I think we could also write: (set 'funclist (list myfunc myfunc myfunc myfunc myfunc)), so we don't need 'eval' in (set 'afunc (funclist 2))