From 8e5823deb1383dbbeae3f06fca208d460a374ee0 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Wed, 30 Sep 1992 13:28:16 +0000 Subject: [PATCH] Change invocations of utilities from arith to include the names of procedures. --- v7/src/runtime/numint.scm | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/v7/src/runtime/numint.scm b/v7/src/runtime/numint.scm index 06b0331fd..79480d717 100644 --- a/v7/src/runtime/numint.scm +++ b/v7/src/runtime/numint.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/numint.scm,v 1.2 1990/04/10 16:03:03 cph Rel $ +$Id: numint.scm,v 1.3 1992/09/30 13:28:16 jinx Exp $ -Copyright (c) 1989, 1990 Massachusetts Institute of Technology +Copyright (c) 1989-1992 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -39,30 +39,33 @@ MIT in each case. |# (define (make-=-operator =) (lambda zs - (reduce-comparator = zs))) + (reduce-comparator = zs 'make-=-operator))) (define (make-<-operator <) (lambda zs - (reduce-comparator < zs))) + (reduce-comparator < zs 'make-<-operator))) (define (make->-operator <) (lambda zs (reduce-comparator (lambda (x y) (< y x)) - zs))) + zs + 'make->-operator))) (define (make-<=-operator <) (lambda zs (reduce-comparator (lambda (x y) (not (< y x))) - zs))) + zs + 'make-<=-operator))) (define (make->=-operator <) (lambda zs (reduce-comparator (lambda (x y) (not (< x y))) - zs))) + zs + 'make->=-operator))) (define (make-max/min-operator max/min) (lambda (x . xs) - (reduce-max/min max/min x xs))) + (reduce-max/min max/min x xs 'make-max/min-operator))) (define (make-atan-operator atan1 atan2) (lambda (z . xs) -- 2.25.1