1(library (regexp)
2  (export)
3  (import (rename (chezpart)
4                  [define chez:define])
5          (rename (rumble)
6                  ;; Remapped to place-local register operations:
7                  [unsafe-make-place-local rumble:unsafe-make-place-local]
8                  [unsafe-place-local-ref rumble:unsafe-place-local-ref]
9                  [unsafe-place-local-set! rumble:unsafe-place-local-set!])
10          (io))
11
12  (include "place-register.ss")
13  (define-place-register-define define regexp-register-start regexp-register-count)
14
15  (include "include.ss")
16  (include-generated "regexp.scm")
17
18  (define (any-regexp? v)
19    (or (1/regexp? v)
20        (1/byte-regexp? v)))
21
22  (set-intern-regexp?! any-regexp?)
23  (set-printable-regexp?! any-regexp?))
24