From dbcda6409fdc6e3c7717f7f30d3d5635eaa9e494 Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Tue, 18 Jun 2019 22:23:21 +0200
Subject: Macro harder

---
 compiler/elymasGlobal.ey   | 5 ++++-
 compiler/standardClient.ey | 1 +
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/compiler/elymasGlobal.ey b/compiler/elymasGlobal.ey
index 1ad7b98..2652eae 100644
--- a/compiler/elymasGlobal.ey
+++ b/compiler/elymasGlobal.ey
@@ -1863,6 +1863,7 @@
     ]] /internalExecuteIdentifier defv
   > { defv }' ::allocateOffsetStruct
 
+  [ ] ==eydefqImpl
   <
     # predefining defv, deff, defq # TODO think about moving this to standard(Client) one day
     # 0 -> name, string
@@ -1885,7 +1886,7 @@
       ]]
     } %00 -101* /eydefv defv
       %01 -101* /eydeff defv
-      %02 -101* /eydefq defv
+      %02 -101* =eydefqImpl
       %03 -101* /eydefm defv
       %10 -101* /eydefvs defv
       %11 -101* /eydeffs defv
@@ -3198,6 +3199,8 @@
       _ 1 ::unscopingFunctionHeader ::unscopingFunctionFooter internalCallOptimizeHook -32104* /ey}' defv
       _ 0 ::unscopingFunctionHeader ::unscopingFunctionFooter internalCallOptimizeHook -32104* /ey}" defv
       --
+
+    eydefqImpl /eydefq defv
   > _ ==globalMacros { defv }' ::allocateOffsetStruct
 
   <
diff --git a/compiler/standardClient.ey b/compiler/standardClient.ey
index 1076f65..4240cee 100644
--- a/compiler/standardClient.ey
+++ b/compiler/standardClient.ey
@@ -3,6 +3,7 @@
 { keys dump "undefined member in .: " dump dump "" die } "#." defmd
 { keys dump "undefined member in .|: " dump dump "" die } "#.|" defmd
 { keys dump "undefined member in =: " dump dump "" die } "#.=" defmd
+{ -01 quoted { * } rep -01 } |defq ; /defq defq
 
 {
   quoted { ==name =*f
-- 
cgit v1.2.3