X-Git-Url: https://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/0a063a8778e267ded154dadeaa6042fbff35a3c5..cf39ac971d6cd1e16bf84c2c05adb4b699064b2f:/fth/c_struct.fth

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. )