summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Thompson <dthompson2@worcester.edu>2015-01-18 22:49:09 -0500
committerDavid Thompson <dthompson2@worcester.edu>2015-01-18 22:49:09 -0500
commit67c1f53b15b6faa7fe761ad62a76616fbc940926 (patch)
treedbed927a4ff267f6b3e948cdec964f84dd5072bb
parent1139ed32756fd18a59f072c3ae5e0dcfc67bf16d (diff)
utils: Remove unused procedures.
* sly/utils.scm (any-equal?, logand?): Delete.
-rw-r--r--sly/utils.scm13
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