gherken/gherken.scm

(cond-expand
  (r7rs)
  (chicken (import (r7rs))))
(import-for-syntax (r7rs))

(define-library (gherken)
  (import r7rs
          utf8
          (chicken irregex)
          (chicken port)
          shell
          medea
          srfi-1
          srfi-69
          srfi-78
          srfi-123
          srfi-152
          srfi-197)
  (export given)
  (begin
    (define lang-registry (make-hash-table))

    (define-syntax given
      (syntax-rules ()
        ((given picklex args ...)
         (hash-table-set! lang-registry picklex (lambda args ...)))))
    ))