bs/re.scm


1
2
3
4
5
6
7
8
9
10
11

#!r6rs
(library (bs re (0))
  (export match group)
  (import (rnrs base (6))
          (ice-9 regex))
  (define (match s pat)
    (string-match pat s))
  (define (group m n)
    (if m
        (match:substring m n)
        #f)))