summaryrefslogtreecommitdiff
path: root/modules/language/python/compile.scm
diff options
context:
space:
mode:
Diffstat (limited to 'modules/language/python/compile.scm')
-rw-r--r--modules/language/python/compile.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/modules/language/python/compile.scm b/modules/language/python/compile.scm
index 5df4f3c..00443a9 100644
--- a/modules/language/python/compile.scm
+++ b/modules/language/python/compile.scm
@@ -1118,7 +1118,7 @@
(let* ((decor (let ((r (fluid-ref decorations)))
(fluid-set! decorations '())
r))
- (arg_ (get-args_ vs args))
+ (arg_ (get-args_ vs args))
(arg= (get-args= vs args))
(dd= (map cadr arg=))
(c? (fluid-ref is-class?))
@@ -1131,7 +1131,7 @@
(dd** (map cadr **f))
(aa `(,@arg_ ,@*f ,@arg= ,@**f))
(ab (gensym "ab"))
- (vs (union dd** (union dd* (union dd= (union args vs)))))
+ (vs (union dd** (union dd* (union dd= (union arg_ vs)))))
(ns (scope code vs))
(df (defs code '()))
(ex (gensym "ex"))