From 67c1f53b15b6faa7fe761ad62a76616fbc940926 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 18 Jan 2015 22:49:09 -0500
Subject: utils: Remove unused procedures.

* sly/utils.scm (any-equal?, logand?): Delete.
---
 sly/utils.scm | 13 +------------
 1 file changed, 1 insertion(+), 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
-- 
cgit v1.2.3