diff options
Diffstat (limited to 'Com/Simatime/core.scm')
| -rw-r--r-- | Com/Simatime/core.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/Com/Simatime/core.scm b/Com/Simatime/core.scm index dbacd8a..4d523ea 100644 --- a/Com/Simatime/core.scm +++ b/Com/Simatime/core.scm @@ -79,6 +79,15 @@ (define (nil? x) (eq? nil x)) +(define (some pred coll) + (or (pred (first coll)) + (some pred (next coll)))) + +(define comp compose) + +(define (not-any? pred coll) + (comp not some)) + (define-syntax when-not (syntax-case (()))) |