From b2ddb0434d20bdc04c86d660fbdf8a1b75635d6a Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@sbcglobal.net>
Date: Fri, 29 Dec 2023 20:44:25 -0800
Subject: [PATCH] Fix running editor from inside forth

---
 src/samplesrc/cmdsys.4th | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/src/samplesrc/cmdsys.4th b/src/samplesrc/cmdsys.4th
index 7c368ef..f6a9abf 100644
--- a/src/samplesrc/cmdsys.4th
+++ b/src/samplesrc/cmdsys.4th
@@ -1,6 +1,12 @@
 : IFACE 2 * + @ ;
 
-LOOKUP CMDSYS 3 IFACE PLASMA EXECMOD
-LOOKUP CMDSYS 3 IFACE PLASMA CMDLINE
+LOOKUP CMDSYS 3 IFACE PLASMA   EXECMOD
+LOOKUP CMDSYS 2 IFACE CONSTANT CMDLINE
 LOOKUP STRCPY PLASMA STRCPY
 LOOKUP STRCAT PLASMA STRCAT
+
+: EDIT"
+    CMDLINE " ED "  STRCPY
+    CMDLINE 34 WORD STRCAT
+    " ED" EXECMOD
+;