Add complex number syntax to reader and printer.

diff --git a/v7/src/runtime/numpar.scm b/v7/src/runtime/numpar.scm
index 48f0d40d5f23607e7ea670217f4340ae8159d7f3..3e4245140e95935b475f0fc9777c1fbfd0e25700 100644 (file)
--- 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))
 \f
 (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 784f47edd362b6391561e717c359376be8f0beea..3ada4bc6d4530f4dd125a5557353fbf3b1ea9ae0 100644 (file)
--- 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