From 7d613e2d4fba5da754aae0a516f3a21f8cb7b81a Mon Sep 17 00:00:00 2001 From: Wolfgang Corcoran-Mathe Date: Sat, 3 Sep 2022 09:39:15 -0400 Subject: [PATCH] Copyedits. --- srfi-235.html | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/srfi-235.html b/srfi-235.html index aa7a238..c2fb9a7 100644 --- a/srfi-235.html +++ b/srfi-235.html @@ -129,7 +129,7 @@ and then applies reducer to all of the results.

((right-section proc arg ...) obj ...)

Applies proc to objs concatenated with the value of (reverse args).

(map (right-section - 1) '(1 2 3)) => (0 1 2)
-

((apply-chain proc ...) arg ...)`

+

((apply-chain proc ...) arg ...)

Applies the last proc to args returning zero or more values, then applies the previous proc to the values, returning more values, until the first proc has been invoked; its values are returned. @@ -185,7 +185,7 @@ Otherwise, invokes else-thunk and returns what it returns.

(when-procedure value thunk ...)
(unless-procedure value thunk ...)

If value is false/true, immediately returns. Otherwise, invokes each thunk in turn and then returns. -n all cases an unspecified value is returned.

+In all cases an unspecified value is returned.

 (when-procedure #t a b c) => unspecified ;prints "abc"
 (when-procedure #f a b c) => unspecified ;prints nothing
@@ -209,7 +209,7 @@ invokes else-thunk (if present) and returns what it returns.
 If else-thunk is not present, the result is undefined.
 
 (case-procedure 0 `((1 . ,a) (2 . ,z) (3 . ,c)) z) => undefined ;displays "z"
-(case-procedure 0 `((1 . ,a) (2 . ,z) (3 . ,c))) => undefined ;displays nothing 
+(case-procedure 0 `((1 . ,a) (2 . ,z) (3 . ,c))) => undefined ;displays nothing
 (case-procedure 2 `((1 . ,a) (2 . ,b) (3 . ,c))) => undefined ;displays "b"
 

 
(lazy-and-procedure thunk ...)

-- 
2.35.3