reverse forms implemented
[software/python-on-guile.git] / modules / language / python / module / re / flags.scm
1 (define-module (language python module re flags)
2 #:export (set-flags get-flags *flags*
3 A ASCII DEBUG I IGNORECASE L LOCALE M MULTILINE X VERBOSE))
4
5 (define *flags* (make-fluid 0))
6 (define (set-flags x) (fluid-set! *flags* x))
7 (define (get-flags) (fluid-ref *flags*))
8
9 (define A 1)
10 (define ASCII A)
11
12 (define DEBUG 2)
13
14 (define I 4)
15 (define IGNORECASE I)
16
17 (define L 8)
18 (define LOCALE L)
19
20 (define M 16)
21 (define MULTILINE M)
22
23 (define X 32)
24 (define VERBOSE X)
25