:art: Allow OPID_D

diff --git a/src/parse/scan1.c b/src/parse/scan1.c
index 9f2c0056da2f20ed92b454d669c6adb37d7f05e3..83a7d087623db639a7d2e27f4ac1b90fb1e07a1f 100644 (file)
--- a/src/parse/scan1.c
+++ b/src/parse/scan1.c
@@ -145,7 +145,8 @@ ANN m_bool scan1_exp_decl(const Env env, const Exp_Decl* decl) {
 
 ANN static inline int opiscall(const Symbol sym) {
   const m_str opname = s_name(sym);
-  return opname[0] == '@' && (isalpha(opname[1]) || opname[1] == '_');
+  return (opname[0] == '@' || opname[0] == '$') &&
+    (isalpha(opname[1]) || opname[1] == '_');
 }
 
 ANN static inline Exp sym2func(const Env env, const Symbol sym, const loc_t pos) {