diff options
| -rw-r--r-- | sly/utils.scm | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/sly/utils.scm b/sly/utils.scm index 78c1b0f..7256ab6 100644 --- a/sly/utils.scm +++ b/sly/utils.scm @@ -26,23 +26,12 @@ #:use-module (srfi srfi-1) #:use-module (rnrs arithmetic bitwise) #:use-module (sly agenda) - #:export (any-equal? - logand? - define-guardian + #:export (define-guardian memoize forever trampoline chain* chain)) -(define (any-equal? elem . args) - "Return #t if ELEM equals any of the elements in the list ARGS." - (any (lambda (e) (equal? elem e)) args)) - -(define (logand? . args) - "Return #t if the result of a bitwise AND of the integers in list -ARGS is non-zero." - (not (zero? (apply logand args)))) - (define-syntax-rule (define-guardian name reaper) "Define a new guardian called NAME and call REAPER when an object within the guardian is GC'd. Reaping is ensured to happen from the |