diff options
Diffstat (limited to 'guile/starlet/utils.scm')
-rw-r--r-- | guile/starlet/utils.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/guile/starlet/utils.scm b/guile/starlet/utils.scm index 940441c..24a2b5c 100644 --- a/guile/starlet/utils.scm +++ b/guile/starlet/utils.scm @@ -3,6 +3,7 @@ #:export (print-hash-table copy-hash-table partial + partial-start in-range mean flatten-sublists @@ -30,6 +31,11 @@ (f first-val second-val))) +(define (partial-start f first-val) + (lambda args + (apply f first-val args))) + + (define (in-range a val1 val2) (or (and (>= a val1) |