[OpenBIOS] r458 - openbios-devel/forth/device

[svn at openbios.org]

Author: blueswirl
Date: 2009-02-21 17:27:51 +0100 (Sat, 21 Feb 2009)
New Revision: 458

Modified:
   openbios-devel/forth/device/fcode.fs
Log:
Fix b?branch (Mark Cave-Ayland)

Modified: openbios-devel/forth/device/fcode.fs
===================================================================
--- openbios-devel/forth/device/fcode.fs	2009-02-21 11:11:56 UTC (rev 457)
+++ openbios-devel/forth/device/fcode.fs	2009-02-21 16:27:51 UTC (rev 458)
@@ -416,7 +416,7 @@
 \   Conditional branch FCode. Followed by FCode-offset.
 
 : b?branch
-  ['] do?branch , 
+  setup-tmp-comp ['] do?branch ,
   fcode-offset 0< if \ if we jump backwards, we can forsee where it goes
     resolve-dest
   else
@@ -439,6 +439,7 @@
 
 : b(>resolve)
   resolve-orig
+  execute-tmp-comp
   ; immediate