From: Jérémie Astor <astor.jeremie@wanadoo.fr>
Date: Sun, 13 Sep 2020 20:49:38 +0000 (+0200)
Subject: :art: Allow OPID_D
X-Git-Tag: nightly~1334
X-Git-Url: http://10.10.0.4:5575/?a=commitdiff_plain;h=ca405d05a2c4316f788a6a465a471f8620da8ce6;p=gwion.git

:art: Allow OPID_D
---

diff --git a/src/parse/scan1.c b/src/parse/scan1.c
index 9f2c0056..83a7d087 100644
--- 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) {