From b82391fde6ceb239082a64a80eecad2a585cdb16 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Sun, 8 Dec 2013 13:54:08 +0900 Subject: [PATCH] Adding -> as an alias for =>. --- lib/chibi/regexp.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/chibi/regexp.scm b/lib/chibi/regexp.scm index e113e3dc..2a5085ac 100644 --- a/lib/chibi/regexp.scm +++ b/lib/chibi/regexp.scm @@ -612,7 +612,7 @@ (if (pair? sre) (case (car 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)) (strip-submatches (cdr sre))))) sre)) @@ -759,13 +759,13 @@ (->rx (sre-expand-reps (cadr sre) (car (cddr sre)) (cons 'seq (cdr (cddr sre)))) flags next)) - ((=> submatch-named) + ((-> => 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) (+ 1 current-match)) match-names)) (->rx (cons 'submatch (cddr sre)) flags next)) - ((*=> submatch-named-list) + ((*-> *=> submatch-named-list) (set! match-names (cons (cons (cadr sre) current-match) match-names)) (->rx (cons 'submatch-list (cddr sre)) flags next)) (($ submatch)