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
|
(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
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue