diff options
author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-10-17 13:53:31 +0200 |
---|---|---|
committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2017-10-17 13:53:31 +0200 |
commit | c5bfeb3df2fad8df156d6008ebdf62349e2e4e70 (patch) | |
tree | f41f9fbe074d9667bf07c492dfb992e0d466c5b0 /modules/language/python/compile.scm | |
parent | b40e3b8b85eb3562cc49b2cbea041ee50949c46d (diff) |
bytevector improvements
Diffstat (limited to 'modules/language/python/compile.scm')
-rw-r--r-- | modules/language/python/compile.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/modules/language/python/compile.scm b/modules/language/python/compile.scm index 0126bbd..7585a15 100644 --- a/modules/language/python/compile.scm +++ b/modules/language/python/compile.scm @@ -1104,7 +1104,10 @@ (#:expr-stmt ((_ (l ...) (#:assign)) - `(,(G 'values) ,@(map (g vs exp) l))) + (let ((l (map (g vs exp) l))) + (if (= (length l) 1) + (car l) + `(,(G 'values) ,@l)))) ((_ l type) (=> fail) |