diff options
Diffstat (limited to 'guile/starlet/base.scm')
| -rw-r--r-- | guile/starlet/base.scm | 19 |
1 files changed, 1 insertions, 18 deletions
diff --git a/guile/starlet/base.scm b/guile/starlet/base.scm index 780ff44..967ad45 100644 --- a/guile/starlet/base.scm +++ b/guile/starlet/base.scm @@ -1,4 +1,5 @@ (define-module (starlet base) + #:use-module (starlet utils) #:use-module (oop goops) #:use-module (ice-9 threads) #:use-module (ice-9 atomic) @@ -511,12 +512,6 @@ (values output1 output2 others)))) -(define (more-than-one a) - (if (nil? a) - #f - (not (nil? (cdr a))))) - - (define (attr-or-symbol? a) (or (fixture-attribute? a) (symbol? a))) @@ -565,18 +560,6 @@ (define selection '()) -(define (flatten-sublists l) - - (define (listify a) - (if (list? a) - a - (list a))) - - (fold (lambda (a prev) - (append prev (listify a))) - '() l)) - - (define (sel . fixture-list) (set! selection (flatten-sublists fixture-list)) |