r1613 - cpu/x86/pc/olpc/via

Author: wmb
Date: 2009-12-15 17:01:37 +0100 (Tue, 15 Dec 2009)
New Revision: 1613

Modified:
   cpu/x86/pc/olpc/via/runin.fth
Log:
Via manufacturing tests - fixed stack cleanup error in runin.fth:handle-tag

Modified: cpu/x86/pc/olpc/via/runin.fth
===================================================================
--- cpu/x86/pc/olpc/via/runin.fth	2009-12-15 08:53:07 UTC (rev 1612)
+++ cpu/x86/pc/olpc/via/runin.fth	2009-12-15 16:01:37 UTC (rev 1613)
@@ -54,9 +54,11 @@

0 0 2value response$

+: final-filename$  ( -- adr len )  board#$ " %s.txt" sprintf  ;
+
 \ Send the board number as the request and return the response data
 : final-tag-exchange  ( -- )
-   board#$ " %s.txt" sprintf open-temp-file
+   final-filename$ open-temp-file
    sn$              " SN:"  put-key+value
    " Request" submit-file
    " Response" get-response  to response$ 
@@ -118,7 +120,7 @@
    2dup find-tag  if  ( value$ key$ old-value$ )       \ Tag already exists, check it
       2over " KA" $=  0=  if  ?-null  then   ( value$ key$ old-value$' )
       2>r 2over 2r@ $=  if                   ( value$ key$ r: old-value$' )
-         2drop 2drop r> 2drop                ( )
+         2drop 2drop 2r> 2drop               ( )
       else                                   ( value$ key$ r: old-value$' )
          type ." tag changed!" cr            ( value$ r: old-value$' )
          ."   Old: " r> show-tag cr          ( value$ )