diff options
| author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-08-20 16:45:22 +0200 |
|---|---|---|
| committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-08-20 16:45:22 +0200 |
| commit | a946830b2994786f84962a79e06e4c745a2c3bf5 (patch) | |
| tree | 7331a948c52199c7b90626f060e1a2f367b611c8 /modules/language/python/def.scm | |
| parent | c79b55f49d74a8a6d54940cde6969ff21c16067b (diff) | |
tokinizer compiles
Diffstat (limited to 'modules/language/python/def.scm')
| -rw-r--r-- | modules/language/python/def.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/modules/language/python/def.scm b/modules/language/python/def.scm index fa4cbc5..f5466ad 100644 --- a/modules/language/python/def.scm +++ b/modules/language/python/def.scm @@ -1,6 +1,7 @@ (define-module (language python def) #:use-module (oop pf-objects) #:use-module (language python for) + #:use-module (language python list) #:use-module (ice-9 match) #:use-module (srfi srfi-11) #:export (def lam py-apply)) @@ -147,6 +148,6 @@ #'(f a ...) #'(apply f (let lp ((l (list (m* a) ...))) (if (pair? l) - (append (car l) (lp (cdr l))) + (append (to-list (car l)) (lp (cdr l))) '())))))))) |