Remove even more unneeded crud from utilities.scm.

This commit is contained in:
sperber 2002-08-14 15:04:50 +00:00
parent 8ebe0fe3f8
commit 671f2c0181
2 changed files with 1 additions and 13 deletions

View File

@ -593,9 +593,8 @@
(define-interface scsh-utilities-interface (define-interface scsh-utilities-interface
(export mapv mapv! vector-every? copy-vector initialize-vector vector-append (export mapv mapv! vector-every? copy-vector initialize-vector vector-append
vfold vfold-right vfold vfold-right
check-arg conjoin disjoin negate compose check-arg
deprecated-proc deprecated-proc
;; deposit-bit-field
real->exact-integer real->exact-integer
make-reinitializer make-reinitializer
run-as-long-as run-as-long-as

View File

@ -68,17 +68,6 @@
(if (pred val) val (if (pred val) val
(check-arg pred (error "Bad argument" val pred caller) caller))) (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) (define (deprecated-proc proc name . maybe-preferred-msg)
(let ((warned? #f)) (let ((warned? #f))
(lambda args (lambda args