Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-21 22:59:16 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing name offsets.

Browse source
This commit is contained in:
Alex Shinn 2013-10-20 17:31:05 +09:00
parent eca3895a00
commit 8f9ba977c3
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/chibi/regexp.scm
View file

@ -635,7 +635,8 @@
((=> submatch-named)
;; Named submatches just record the name for the current
;; match and rewrite as a non-named submatch.
(set! match-names (cons (cons (cadr sre) current-match) match-names))
(set! match-names
(cons (cons (cadr sre) (+ 1 current-match)) match-names))
(->rx (cons 'submatch (cddr sre)) flags next))
((*=> submatch-named-list)
(set! match-names (cons (cons (cadr sre) current-match) match-names))