сокращение для ((лямбда ()))

Question

Есть ли в схеме сокращение для ((лямбда ()))

Например, вместо

((lambda ()
    (define x 1)
    (display x)))

Я бы хотел иметь возможность сделать что-то вроде

(empty-lambda
    (define x 1)
    (display x))

Answer 1

Обычная идиома для этого

(let ()
  (define x 1)
  (display x))

, который вы, конечно, можете превратить в быстрый макрос:

(define-syntax-rule (block E ...) (let () E ...))

Answer 2

Racket предоставляет форму block, которая работает следующим образом:

#lang racket
(require racket/block)
(block
 (define x 1)
 (display x))

Answer 3

Почему не просто

(let
    ((x 1))
    (display x))

Answer 4

(define-syntax empty-lambda
  (syntax-rules ()
    ((empty-lambda body ...)
      ((lambda () body ...)))))