summaryrefslogtreecommitdiff
path: root/modules/language/python/format2.scm
diff options
context:
space:
mode:
Diffstat (limited to 'modules/language/python/format2.scm')
-rw-r--r--modules/language/python/format2.scm7
1 files changed, 7 insertions, 0 deletions
diff --git a/modules/language/python/format2.scm b/modules/language/python/format2.scm
index df30be5..437623c 100644
--- a/modules/language/python/format2.scm
+++ b/modules/language/python/format2.scm
@@ -39,6 +39,9 @@
(define (get-n p)
(match p
+ ((#:% _ _ _ _ _ "%")
+ -1)
+
((#:% #f _ #:* #:* . _)
2)
((#:% #f _ #:* _ . _)
@@ -257,6 +260,10 @@
(n (get-n p))
(f (analyze p)))
(case n
+ ((-1)
+ (lambda (x)
+ (cons* a "%" (rest x))))
+
((0)
(lambda (x)
(cons* a (f (car x)) (rest (cdr x)))))