command-parameters.scm 236 B

12345678910
  1. (define-module (command-parameters)
  2. #:use-module (rnrs base)
  3. #:use-module ((guile) #:select (lambda* λ))
  4. #:export (input-channel
  5. output-channel
  6. error-channel))
  7. (define input-channel (make-parameter ()))