diff options
Diffstat (limited to 'modules/language/python/module/collections.scm')
-rw-r--r-- | modules/language/python/module/collections.scm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/modules/language/python/module/collections.scm b/modules/language/python/module/collections.scm index 39a4d45..c4d87e4 100644 --- a/modules/language/python/module/collections.scm +++ b/modules/language/python/module/collections.scm @@ -611,11 +611,13 @@ (string-split field_names #\,))) (set! field_names - (let lp ((fs field_names)) - (if (pair? fs) - (append (string-split (car fs) #\space) - (lp (cdr fs))) - '()))) + (for ((fs : field_names)) ((r '())) + (if (string? fs) + (append (string-split fs #\space) + r) + (cons fs r)) + #:final + r)) (set! field_names (py-list (py-map scm-str field_names))) (set! typename (scm-str typename)) |