Using cpfr's change in ac.scm (xdef 'seval (lambda (x) (eval (ac-denil x))))
And cpfr's arc code: (set scheme-eval (annotate 'mac (fn body `(seval (quote ,@body)))))
We can now define vincenz's turtles (set turtles (annotate 'mac (fn (exp) `(scheme-eval (ac (ac-denil ,exp) '())))))
It's Arc all the way down (well... sliced with scheme like a sandwich) |