diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-07-14 12:20:44 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-07-14 12:20:44 +0200 |
| commit | 67b48a6ec6d303cc07e7aabc39b6cbd8e70f1bf3 (patch) | |
| tree | 27953bea2707f366abf3a9c4a4ec2562728235d3 /modules/language/python/module | |
| parent | f832efe568e1235752f0709968fada5213bd687c (diff) | |
cleanup
Diffstat (limited to 'modules/language/python/module')
| -rw-r--r-- | modules/language/python/module/re.scm | 3 | ||||
| -rw-r--r-- | modules/language/python/module/re/compile.scm | 2 |
2 files changed, 2 insertions, 3 deletions
diff --git a/modules/language/python/module/re.scm b/modules/language/python/module/re.scm index 4da2138..5ba3114 100644 --- a/modules/language/python/module/re.scm +++ b/modules/language/python/module/re.scm @@ -329,8 +329,7 @@ (() #t))) (set self '__t t) - (set self 'regs (__regs self)) - (pk (span self))))) + (set self 'regs (__regs self))))) (define er (list 'er)) (define group diff --git a/modules/language/python/module/re/compile.scm b/modules/language/python/module/re/compile.scm index 210a2ad..e259e3b 100644 --- a/modules/language/python/module/re/compile.scm +++ b/modules/language/python/module/re/compile.scm @@ -36,7 +36,7 @@ (define dotall (<pp-lambda> (L c) (let ((x (fluid-ref *flags*))) - (when (pk (not (= 0 (logand x DOTALL)))) + (when (not (= 0 (logand x DOTALL))) (<p-cc> (wrap L c)))))) (define multiline |