From 671f2c01813f535802e84793ff48287753123daa Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Wed, 14 Aug 2002 15:04:50 +0000
Subject: [PATCH] Remove even more unneeded crud from utilities.scm.

---
 scsh/scsh-interfaces.scm |  3 +--
 scsh/utilities.scm       | 11 -----------
 2 files changed, 1 insertion(+), 13 deletions(-)

diff --git a/scsh/scsh-interfaces.scm b/scsh/scsh-interfaces.scm
index fdf4ce7..9f5a0b8 100644
--- a/scsh/scsh-interfaces.scm
+++ b/scsh/scsh-interfaces.scm
@@ -593,9 +593,8 @@
 (define-interface scsh-utilities-interface
   (export mapv mapv! vector-every? copy-vector initialize-vector vector-append
 	  vfold vfold-right
-	  check-arg conjoin disjoin negate compose
+	  check-arg
 	  deprecated-proc
-	  ;; deposit-bit-field
 	  real->exact-integer
 	  make-reinitializer
 	  run-as-long-as
diff --git a/scsh/utilities.scm b/scsh/utilities.scm
index 699aec2..5b04611 100644
--- a/scsh/utilities.scm
+++ b/scsh/utilities.scm
@@ -68,17 +68,6 @@
   (if (pred val) val
       (check-arg pred (error "Bad argument" val pred caller) caller)))
 
-(define (conjoin f g)
-  (lambda args (and (apply f args) (apply g args))))
-
-(define (disjoin f g)
-  (lambda args (or (apply f args) (apply g args))))
-
-(define (negate f) (lambda args (not (apply f args))))
-
-(define (compose f g)
-  (lambda args (call-with-values (lambda () (apply g args)) f)))
-
 (define (deprecated-proc proc name . maybe-preferred-msg)
   (let ((warned? #f))
     (lambda args