From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 16 Nov 2018 09:08:43 +0000 (+0000)
Subject: Tickle error case that I missed.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~76
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=053bbbaddd67efc79ed320871e1dc911d542fab0;p=mit-scheme.git

Tickle error case that I missed.
---

diff --git a/tests/runtime/test-numpar.scm b/tests/runtime/test-numpar.scm
index 34410caec..a2641421c 100644
--- a/tests/runtime/test-numpar.scm
+++ b/tests/runtime/test-numpar.scm
@@ -85,6 +85,8 @@ USA.
 (define-eqv-test "#d#e-100" -100)
 (define-eqv-test "#x#e-100" -256)
 
+(define-eqv-test "#e1e1+1e1i" 10+10i 'xerror)
+
 (define-eqv-test "#e#x1p10" (expt 2 10))
 (define-eqv-test "#e#x1.1p4" #x11)
 (define-eqv-test "#e#x1.1p-1" (* #x11 (expt 2 (- (+ 1 4)))))