utils: Remove unused procedures.

* sly/utils.scm (any-equal?, logand?): Delete.

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