15 linhas
249 B
Scheme
15 linhas
249 B
Scheme
|
(module util (curry applied thunk)
|
||
|
(import scheme)
|
||
|
|
||
|
(define (curry fn a)
|
||
|
(lambda (b)
|
||
|
(fn a b)))
|
||
|
|
||
|
(define (applied fn)
|
||
|
(curry apply fn))
|
||
|
|
||
|
(define-syntax thunk
|
||
|
(syntax-rules ()
|
||
|
((_ exp ...)
|
||
|
(lambda () exp ...)))))
|