From a5c5bccc614a48b97223a9c34eaa8672ea3a7401 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 9 Sep 1990 03:11:16 +0000 Subject: [PATCH] Fix typo and rename lambda parameter. --- v7/src/runtime/arith.scm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/v7/src/runtime/arith.scm b/v7/src/runtime/arith.scm index f2dae1041..78d130f85 100644 --- a/v7/src/runtime/arith.scm +++ b/v7/src/runtime/arith.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/arith.scm,v 1.14 1990/02/02 17:25:50 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/arith.scm,v 1.15 1990/09/09 03:11:16 cph Exp $ Copyright (c) 1989, 1990 Massachusetts Institute of Technology @@ -62,11 +62,11 @@ MIT in each case. |# (and (binary-comparator x y) (loop y (cdr rest)))))))) -(define (reduce-max/min max x1 xs) +(define (reduce-max/min max/min x1 xs) (let loop ((x1 x1) (xs xs)) (if (null? xs) x1 - (loop (max x1 (car xs)) (cdr xs))))) + (loop (max/min x1 (car xs)) (cdr xs))))) ;;;; Primitives @@ -1733,9 +1733,10 @@ MIT in each case. |# (pair? (cdr modifier)) (memq (cadr modifier) '(B O D X)) (or (null? (cddr modifier)) - (pair? (cddr modifier)) - (memq (caddr modifier) '(E S)) - (null? (cdddr modifier)))) (if (and (pair? (cddr modifier)) + (and (pair? (cddr modifier)) + (memq (caddr modifier) '(E S)) + (null? (cdddr modifier))))) + (if (and (pair? (cddr modifier)) (eq? (caddr modifier) 'E)) (warn "NUMBER->STRING: ignoring radix expression modifier" -- 2.25.1