11 lines
248 B
Scheme
11 lines
248 B
Scheme
;;;
|
|
;;; COMPREHENSIONS
|
|
;;;
|
|
|
|
(module comprehension-struct mzscheme
|
|
(provide comprehension comprehension? comprehension-loop make-comprehension
|
|
comprehension-payload)
|
|
|
|
(define-struct comprehension
|
|
(name loop payload)))
|