2 instruction saving in >body

wzab · Mar 17, 2016 · 6344433 · 6344433
1 parent 2dc24dc
commit 6344433
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/j1a/swapforth.fs b/j1a/swapforth.fs
@@ -39,16 +39,16 @@
  postpone then
 ; immediate
 
+: >body
+ 4 +
+;
+
 : create
  :
- here 4 + postpone literal
+ here >body postpone literal
  postpone ;
 ;
 
-: >body
- @ 32767 and
-;
-
 include core.fs
 
 : /mod >r s>d r> sm/rem ;