cleanup
authorStefan Israelsson Tampe <stefan.itampe@gmail.com>
Sat, 14 Jul 2018 10:20:44 +0000 (12:20 +0200)
committerStefan Israelsson Tampe <stefan.itampe@gmail.com>
Sat, 14 Jul 2018 10:20:44 +0000 (12:20 +0200)
modules/language/python/module/re.scm
modules/language/python/module/re/compile.scm

index 4da2138..5ba3114 100644 (file)
           (() #t)))
 
        (set self '__t t)
-       (set self 'regs (__regs self))
-        (pk (span self)))))
+       (set self 'regs (__regs self)))))
 
   (define er (list 'er))
   (define group
index 210a2ad..e259e3b 100644 (file)
@@ -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