fix parsing inexact complex without real part #340

CHANGELOG.md

@@ -67,6 +67,7 @@
 * fix `(expt +i +i)`
 * fix let with duplicated variables [#335](https://github.com/jcubic/lips/issues/335)
 * fix escape ellipsis in syntax-rules [#334](https://github.com/jcubic/lips/issues/334)
+* fix parsing inexact complex without real part [#340](https://github.com/jcubic/lips/issues/340)
 
 ## 1.0.0-beta.18
 ### Breaking

src/lips.js

@@ -161,7 +161,7 @@ function gen_integer_re(mnemonic, range) {
 var re_re = /^#\/((?:\\\/|[^/]|\[[^\]]*\/[^\]]*\])+)\/([gimyus]*)$/;
 var float_stre = '(?:[-+]?(?:[0-9]+(?:[eE][-+]?[0-9]+)|(?:\\.[0-9]+|[0-9]+\\.[0-9]+)(?:[eE][-+]?[0-9]+)?)|[0-9]+\\.)';
 // TODO: extend to ([+-]1/2|float)([+-]1/2|float)
-var complex_float_stre = `(?:#[ie])?(?:[+-]?(?:[0-9]+/[0-9]+|nan.0|inf.0|${float_stre}|[+-]?[0-9]+))?(?:${float_stre}|[+-](?:[0-9]+/[0-9]+|[0-9]+|nan.0|inf.0))i`;
+var complex_float_stre = `(?:#[ie])?(?:[+-]?(?:[0-9][0-9_]*/[0-9][0-9_]*|nan.0|inf.0|${float_stre}|[+-]?[0-9]+))?(?:${float_stre}|[+-](?:[0-9]+/[0-9]+|[0-9]+|nan.0|inf.0))i`;
 var float_re = new RegExp(`^(#[ie])?${float_stre}$`, 'i');
 function make_complex_match_re(mnemonic, range) {
     // complex need special treatment of 10e+1i when it's hex or decimal
@@ -404,6 +404,8 @@ function parse_complex(arg, radix = 10) {
     im = parse_num(parts[2]);
     if (parts[1]) {
         re = parse_num(parts[1]);
+    } else if (im instanceof LFloat) {
+        re = LFloat(0);
     } else {
         re = LNumber(0);
     }