diff options
| -rw-r--r-- | guile/starlet/base.scm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/guile/starlet/base.scm b/guile/starlet/base.scm index f64ea51..780ff44 100644 --- a/guile/starlet/base.scm +++ b/guile/starlet/base.scm @@ -566,10 +566,14 @@ (define (flatten-sublists l) + + (define (listify a) + (if (list? a) + a + (list a))) + (fold (lambda (a prev) - (if (list? a) - (append a prev) - (cons a prev))) + (append prev (listify a))) '() l)) |