From cf39ac971d6cd1e16bf84c2c05adb4b699064b2f Mon Sep 17 00:00:00 2001
From: Phil Burk <philburk@mobileer.com>
Date: Tue, 28 May 2019 17:16:34 -0700
Subject: [PATCH] c_struct: remove debug statements

---
 fth/c_struct.fth | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/fth/c_struct.fth b/fth/c_struct.fth
index bd06a50..1773255 100644
--- a/fth/c_struct.fth
+++ b/fth/c_struct.fth
@@ -94,7 +94,7 @@ decimal
 : (S+REL!)  ( ptr addr offset -- )  + >r if.use->rel r> ! ;
 
 : compile+!bytes ( offset size -- )
-    ." compile+!bytes ( " over . dup . ." )" cr
+    \ ." compile+!bytes ( " over . dup . ." )" cr
     swap [compile] literal   \ compile offset into word
     CASE
     cell OF compile (s+!)  ENDOF
@@ -152,7 +152,7 @@ decimal
 : (S+W@)  ( addr offset -- val )  + w@ w->s ;
 
 : compile+@bytes ( offset size -- )
-   ." compile+@bytes ( " over . dup . ." )" cr
+    \ ." compile+@bytes ( " over . dup . ." )" cr
     swap [compile] literal   \ compile offset into word
     CASE
     cell OF compile (s+@)  ENDOF
@@ -177,8 +177,6 @@ decimal
     (s@)
 ; immediate
 
-
-
 exists? F* [IF]
 \ 951112 Floating Point support
 : FLPT  ( <name> -- , declare space for a floating point value. )
-- 
2.20.1