Remove even more unneeded crud from utilities.scm.
This commit is contained in:
parent
8ebe0fe3f8
commit
671f2c0181
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue