[Chicken-hackers] Do you mind adding `thunk' to e.g. moremacros?

[Peter Danenberg]

I know it's trivial:

  (define-syntax thunk
    (lambda (expression rename compare)
      (let ((body (cdr expression))
            (%lambda (rename 'lambda)))
        `(,%lambda () ,@body))))

but it helps me with the noobs in my AIMA seminar, whom I'm trying to
bybring a little Chicken.