kekkonen/util.scm

(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 ...)))))