make (= (f x) (expr x)) expand into (= f (fn (x) (expr x)))

(= f (table)) (= k 1) (= (f k) (+ k 1))

(def set-the-table (k) (= (tb k) (+ k 1))) (= tb (table))

file1.arc:

; throwaway file I'm playing around with ; define some temporary function (= (foo x) (+ x 1))

; throwaway file I'm playing around with (= foo (table)) (for i 0 3 (= (foo i) i))

(load "file2.arc") (load "file1.arc")

-----

(flet (f (x) (expr x)) whatever...)

(fwith ((f (x) (expr x)) (g (x) (f x))) whatever...)

(= f (rfn 'f (x) (expr x)))