From ac11eb3e3303c87e3553aefd0357fbb75cf3f5aa Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 7 Jan 1987 18:40:51 +0000 Subject: [PATCH] *** empty log message *** --- v7/src/runtime/numpar.scm | 17 +++++++---------- 1 file changed, 7 insertions(+), 10 deletions(-) diff --git a/v7/src/runtime/numpar.scm b/v7/src/runtime/numpar.scm index 3e4245140..a4b5acf9d 100644 --- a/v7/src/runtime/numpar.scm +++ b/v7/src/runtime/numpar.scm @@ -37,7 +37,7 @@ ;;;; Number Parser -;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/numpar.scm,v 1.4 1987/01/07 17:52:08 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/numpar.scm,v 1.5 1987/01/07 18:40:51 cph Exp $ (declare (usual-integrations)) @@ -79,15 +79,12 @@ (case (car chars) ((#\+ #\-) (parse-real chars - (lambda (chars real*) - (and (not (null? chars)) - (null? (cdr chars)) - (or (char-ci=? (car chars) #\i) - (char-ci=? (car chars) #\j)) - (make-rectangular real - (if (char=? (car chars) #\+) - real* - (- real*))))))) + (lambda (chars* real*) + (and (not (null? chars*)) + (null? (cdr chars*)) + (or (char-ci=? (car chars*) #\i) + (char-ci=? (car chars*) #\j)) + (make-rectangular real real*))))) ((#\@) (parse-real chars (lambda (chars real*) -- 2.25.1