From d57ff9587f6f2501b2f1d63dfdb5fa05992ce101 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 7 Jan 1987 17:52:56 +0000 Subject: [PATCH] Add complex number syntax to reader and printer. --- v7/src/runtime/numpar.scm | 7 +++++-- v7/src/runtime/unpars.scm | 3 ++- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/numpar.scm b/v7/src/runtime/numpar.scm index 48f0d40d5..3e4245140 100644 --- a/v7/src/runtime/numpar.scm +++ b/v7/src/runtime/numpar.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; Copyright (c) 1986 Massachusetts Institute of Technology +;;; Copyright (c) 1987 Massachusetts Institute of Technology ;;; ;;; This material was developed by the Scheme project at the ;;; Massachusetts Institute of Technology, Department of @@ -37,6 +37,8 @@ ;;;; 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 $ + (declare (usual-integrations)) (define string->number) @@ -79,8 +81,9 @@ (parse-real chars (lambda (chars real*) (and (not (null? chars)) - (char-ci=? (car chars) #\i) (null? (cdr chars)) + (or (char-ci=? (car chars) #\i) + (char-ci=? (car chars) #\j)) (make-rectangular real (if (char=? (car chars) #\+) real* diff --git a/v7/src/runtime/unpars.scm b/v7/src/runtime/unpars.scm index 784f47edd..3ada4bc6d 100644 --- a/v7/src/runtime/unpars.scm +++ b/v7/src/runtime/unpars.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; Copyright (c) 1986 Massachusetts Institute of Technology +;;; Copyright (c) 1987 Massachusetts Institute of Technology ;;; ;;; This material was developed by the Scheme project at the ;;; Massachusetts Institute of Technology, Department of @@ -284,6 +284,7 @@ (define-type 'FIXNUM unparse-number) (define-type 'BIGNUM unparse-number) (define-type 'FLONUM unparse-number) +(define-type 'COMPLEX unparse-number) ;;; end UNPARSER-PACKAGE. )) \ No newline at end of file -- 2.25.1