diff options
Diffstat (limited to 'modules/language/python/module/re.scm')
| -rw-r--r-- | modules/language/python/module/re.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/modules/language/python/module/re.scm b/modules/language/python/module/re.scm index f16b697..3b8f8af 100644 --- a/modules/language/python/module/re.scm +++ b/modules/language/python/module/re.scm @@ -430,13 +430,16 @@ (define escape (let ((m (string->list "()[]#$*+-.^|\\"))) + (set! m (cons #\newline m)) (lambda (x) (let lp ((l (string->list x)) (r '())) (ice-match l ((x . l) (lp l (if (member x m) - (cons* #\\ x r) + (if (eq? x #\newline) + (cons* #\n #\\ r) + (cons* x #\\ r)) (cons x r)))) (() (list->string (reverse r)))))))) |