Arc Forumnew | comments | leaders | submitlogin
1 point by applepie 6114 days ago | link | parent

You probably want something like this:

  ;; "named" fn
  (mac nfn (name args . body)
    `(fn ,args
       (ccc
         (fn (,(sym (string "ret-from-" name)))
           ,@body))))

  ;; Example:
  ;; returns 10 but doesn't print "hi"
  ((nfn a () (ret-from-a 10) (prn "hi")))