From 7202762f0f679059bb4878fedd802160b8848f56 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Remko=20Tron=C3=A7on?= <remko@el-tramo.be>
Date: Fri, 8 Nov 2019 15:19:33 +0100
Subject: [PATCH] Implement VALUE natively

---
 src/waforth.wat | 16 ++--------------
 1 file changed, 2 insertions(+), 14 deletions(-)

diff --git a/src/waforth.wat b/src/waforth.wat
index e27cfc1..5922e1c 100644
--- a/src/waforth.wat
+++ b/src/waforth.wat
@@ -1553,7 +1553,8 @@
   ;; 6.2.2405
   (data (i32.const #x21874) "\u0064\u0018\u0002\u0000" "\u0005" "VALUE00" "\u004c\u0000\u0000\u0000") ;; !constantIndex
   
-  
+  ;; 15.6.1.0220
+  ;; : .S DSP@ S0 BEGIN 2DUP > WHILE DUP @ U.  SPACE 4 + REPEAT 2DROP ;
 
   ;; High-level words
   (!prelude #<<EOF
@@ -1566,19 +1567,6 @@
       EMIT
     ;
 
-    \ 15.6.1.0220
-    : .S
-      DSP@ S0 
-      BEGIN
-        2DUP >
-      WHILE
-        DUP @ U.
-        SPACE
-        4 +
-      REPEAT
-      2DROP
-    ;
-
     \ 6.2.0210
     : .R
       SWAP