From 2b2744b5059dc54e198de13aedfe639039bbcd33 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 8 Jan 1987 22:39:48 +0000 Subject: [PATCH] Fix bug in parsing of complex polar notation. --- v7/src/runtime/numpar.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/runtime/numpar.scm b/v7/src/runtime/numpar.scm index a4b5acf9d..43471e17b 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.5 1987/01/07 18:40:51 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/numpar.scm,v 1.6 1987/01/08 22:39:48 cph Exp $ (declare (usual-integrations)) @@ -86,7 +86,7 @@ (char-ci=? (car chars*) #\j)) (make-rectangular real real*))))) ((#\@) - (parse-real chars + (parse-real (cdr chars) (lambda (chars real*) (and (null? chars) (make-polar real real*))))) -- 2.25.1