11 lines
260 B
Scheme
11 lines
260 B
Scheme
#lang scheme
|
|
(provide define-on-demand)
|
|
|
|
(define-syntax-rule (define-on-demand id rhs)
|
|
(begin
|
|
(define val (delay rhs))
|
|
(define-syntax (id stx)
|
|
(if (identifier? stx)
|
|
#'(force val)
|
|
(raise-syntax-error #f "bad syntax" stx)))))
|