Re: [Chicken-users] macrolet

[Lui Fungsin]

I know I digressed but Graham your idea does work. Thanks

(define-macro (defun name args . body)
  (with-gensyms (return)
   `(define ,name
      (lambda ,args
        (call/cc
         (lambda (,return)
           ((lambda (return-from) ,@body)
            (lambda (ignore-proc-name value)
              (,return value)))))))))