Hi Alex,

Does this look like a reasonable way to create the "create-adder" function?

(de create-adder Args
   (let
      (N (car Args)
         Adder (intern (pack "add-" N))
         P
         (list
            'de
            Adder
            '(X)
            (list '+ N 'X) ) )
      (eval P) ) )

: (create-adder 10)
-> add-10
: (add-10 20)
-> 30

If I understand correctly, the "macro" capability of miniPicoLisp is not at
par with PicoLisp right?

Regards,
Kashyap

Reply via email to