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.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/modules/language/python/compile.scm b/modules/language/python/compile.scm
index 766c718..a338bf9 100644
--- a/modules/language/python/compile.scm
+++ b/modules/language/python/compile.scm
@@ -703,14 +703,14 @@
,class
,(map (lambda (x) `(,(O 'get-class) ,x)) parents)
#:const
+ ()
+ #:dynamic
,(match (exp vs defs)
(('begin . l)
l)
((('begin . l))
l)
- (l l))
- #:dynamic
- ())))))))
+ (l l)))))))))
(#:scm
((_ (#:string _ s)) (with-input-from-string s read)))
@@ -1634,7 +1634,7 @@
(define-syntax set-x-2
(syntax-rules ()
((_ v (#:identifier x) val)
- (set v 'x val))
+ (set v x val))
((_ v (#:vecref n) val)
(pylist-set! v n val))
((_ v (#:vecsub x ...) val)