;;;; chickumber.import.scm - GENERATED BY CHICKEN 4.7.2 -*- Scheme -*-

(eval '(import
         chicken
         scheme
         regex-literals
         regex
         irregex
         extras
         defstruct
         regex-literals
         (only srfi-69
               hash-table-set!
               hash-table-ref/default
               hash-table-clear!
               make-hash-table)
         (only srfi-1 filter)))
(##sys#register-compiled-module
  'chickumber
  (list)
  '((*step-definitions* . chickumber#*step-definitions*)
    (add-step . chickumber#add-step)
    (step-id . chickumber#step-id)
    (step-code . chickumber#step-code)
    (step-regex . chickumber#step-regex)
    (step-regex-string . chickumber#step-regex-string)
    (step-source . chickumber#step-source)
    (reset-step-id-generator . chickumber#reset-step-id-generator)
    (current-steps-file . chickumber#current-steps-file)
    ($ . chickumber#$)
    (reset-state! . chickumber#reset-state!)
    (add-hook . chickumber#add-hook)
    (apply-hooks . chickumber#apply-hooks)
    (hooks-clear! . chickumber#hooks-clear!)
    (find-step . chickumber#find-step)
    (pending . chickumber#pending)
    (current-exit-continuation . chickumber#current-exit-continuation))
  (list (cons 'After
              (syntax-rules
                ()
                ((_ (tag ...) code more-code ...)
                 (add-hook 'after (lambda () code more-code ...)))))
        (cons 'Before
              (syntax-rules
                ()
                ((_ (tag ...) code more-code ...)
                 (add-hook 'before (lambda () code more-code ...)))))
        (cons 'Then
              (syntax-rules () ((_ arguments ...) (Given arguments ...))))
        (cons 'When
              (syntax-rules () ((_ arguments ...) (Given arguments ...))))
        (cons 'Given
              (syntax-rules
                ()
                ((_ rx (argument ...) code more-code ...)
                 (add-step rx 'rx (lambda (argument ...) code more-code ...)))
                ((_ rx code more-code ...)
                 (add-step rx 'rx (lambda () code more-code ...))))))
  (list))

;; END OF FILE