diff options
| author | Thomas White <taw@physics.org> | 2021-04-08 19:02:18 +0200 |
|---|---|---|
| committer | Thomas White <taw@physics.org> | 2021-04-08 19:02:18 +0200 |
| commit | fa2751d1201b83e32ba6074e68259ac467595808 (patch) | |
| tree | 54cb374b83ffe5ea754f512130a4f51a13d500ed /guile/starlet/utils.scm | |
| parent | da57a8398af4634be93afd4873292e82abc8e323 (diff) | |
Neater abstraction for fade types
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) |