mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-03 13:20:26 +02:00
Code Activity

* boot-9.scm (and=>): Rename THUNK argument to PROCEDURE, 'cos

Browse source 
that's what it is.
This commit is contained in:
Jim Blandy 1997-01-08 01:27:01 +00:00
parent 01fce0f0ef
commit 132e5fac84
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
ice-9/boot-9.scm
View file

@ -98,7 +98,7 @@
(define (-1+ n) (+ n -1)) (define (-1+ n) (+ n -1))
(define 1- -1+) (define 1- -1+)
(define return-it noop) (define return-it noop)
(define (and=> value thunk) (and value (thunk value))) (define (and=> value procedure) (and value (procedure value)))
(define (make-hash-table k) (make-vector k '())) (define (make-hash-table k) (make-vector k '()))
;;; apply-to-args is functionally redunant with apply and, worse, ;;; apply-to-args is functionally redunant with apply and, worse,