; R5RS syntactic abstraction:
(define-syntax my-delay 
  (syntax-rules ()
    ((delay expr)
     (lambda ()
        expr))))

; MzScheme syntactic abstraction:
(define-macro my-delay
  (lambda (expr)
    `(lambda () ,expr)))