From 132e5fac8484fe97368c670db64ed84801e6ea6c Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Wed, 8 Jan 1997 01:27:01 +0000 Subject: [PATCH] * boot-9.scm (and=>): Rename THUNK argument to PROCEDURE, 'cos that's what it is. --- ice-9/boot-9.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index fed4f3639..6e132d167 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -98,7 +98,7 @@ (define (-1+ n) (+ n -1)) (define 1- -1+) (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 '())) ;;; apply-to-args is functionally redunant with apply and, worse,