Allow non-symbols in interop member position (#230)

Author: chrisrink10

src/basilisp/reader.py

@@ -373,14 +373,17 @@ def _read_interop(ctx: ReaderContext, end_token: str) -> llist.List:
     if whitespace_chars.match(token):
         instance = _read_next_consuming_comment(ctx)
         member = _read_next_consuming_comment(ctx)
-        if not isinstance(member, symbol.Symbol):
-            raise SyntaxError(f"Expected Symbol; found {type(member)}")
-        is_property = member.name.startswith('-')
-        if is_property:
+
+        # There are cases (particularly with macros) where we may
+        # not have a symbol in this spot. In those cases, we need
+        # to expect the author used the correct form in the first
+        # place.
+        if isinstance(member, symbol.Symbol) and member.name.startswith('-'):
             seq.append(_INTEROP_PROP)
             member = symbol.symbol(member.name[1:])
         else:
             seq.append(_INTEROP_CALL)
+
         seq.append(instance)
         seq.append(member)
     elif token == '-':

tests/basilisp/reader_test.py

@@ -560,14 +560,18 @@ def test_var():
 
 
 def test_interop_call():
-    assert read_str_first('(. "STRING" lower)') == llist.l(
-        sym.symbol('.'), "STRING", sym.symbol('lower'))
-    assert read_str_first('(.lower "STRING")') == llist.l(
-        sym.symbol('.'), "STRING", sym.symbol('lower'))
-    assert read_str_first('(.split "www.google.com" ".")') == llist.l(
-        sym.symbol('.'), "www.google.com", sym.symbol('split'), ".")
-    assert read_str_first('(. "www.google.com" split ".")') == llist.l(
-        sym.symbol('.'), "www.google.com", sym.symbol('split'), ".")
+    assert llist.l(sym.symbol('.'), "STRING", sym.symbol('lower')) == read_str_first(
+        '(. "STRING" lower)')
+    assert llist.l(sym.symbol('.'), "STRING", sym.symbol('lower')) == read_str_first(
+        '(.lower "STRING")')
+    assert llist.l(sym.symbol('.'), "www.google.com", sym.symbol('split'), ".") == read_str_first(
+        '(.split "www.google.com" ".")')
+    assert llist.l(sym.symbol('.'), "www.google.com", sym.symbol('split'), ".") == read_str_first(
+        '(. "www.google.com" split ".")')
+
+    assert llist.l(sym.symbol('.'), sym.symbol('obj'), llist.l(
+        sym.symbol('unquote'), llist.l(sym.symbol('quote'), sym.symbol('method')))) == read_str_first(
+        '(. obj (unquote (quote method)))')
 
     with pytest.raises(reader.SyntaxError):
         read_str_first('(."non-symbol" symbol)')