Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-06 20:56:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Adding -> as an alias for =>.

Browse source
This commit is contained in:
Alex Shinn 2013-12-08 13:54:08 +09:00
parent 1abee0b788
commit b82391fde6
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/chibi/regexp.scm
View file

@ -612,7 +612,7 @@
(if (pair? sre) (if (pair? sre)
(case (car sre) (case (car sre)
(($ submatch) (strip-submatches (cons ': (cdr sre)))) (($ submatch) (strip-submatches (cons ': (cdr sre))))
((=> submatch-named) (strip-submatches (cons ': (cddr sre)))) ((-> => submatch-named) (strip-submatches (cons ': (cddr sre))))
(else (cons (strip-submatches (car sre)) (else (cons (strip-submatches (car sre))
(strip-submatches (cdr sre))))) (strip-submatches (cdr sre)))))
sre)) sre))
@ -759,13 +759,13 @@
(->rx (sre-expand-reps (cadr sre) (car (cddr sre)) (->rx (sre-expand-reps (cadr sre) (car (cddr sre))
(cons 'seq (cdr (cddr sre)))) (cons 'seq (cdr (cddr sre))))
flags next)) flags next))
((=> submatch-named) ((-> => submatch-named)
;; Named submatches just record the name for the current ;; Named submatches just record the name for the current
;; match and rewrite as a non-named submatch. ;; match and rewrite as a non-named submatch.
(set! match-names (set! match-names
(cons (cons (cadr sre) (+ 1 current-match)) match-names)) (cons (cons (cadr sre) (+ 1 current-match)) match-names))
(->rx (cons 'submatch (cddr sre)) flags next)) (->rx (cons 'submatch (cddr sre)) flags next))
((*=> submatch-named-list) ((*-> *=> submatch-named-list)
(set! match-names (cons (cons (cadr sre) current-match) match-names)) (set! match-names (cons (cons (cadr sre) current-match) match-names))
(->rx (cons 'submatch-list (cddr sre)) flags next)) (->rx (cons 'submatch-list (cddr sre)) flags next))
(($ submatch) (($ submatch)