r665 - cpu/x86/pc/olpc

Author: wmb
Date: 2007-10-02 09:52:21 +0200 (Tue, 02 Oct 2007)
New Revision: 665

Modified:
   cpu/x86/pc/olpc/security.fth
Log:
q2c28 late addition 4 - This is getting tedious.

Modified: cpu/x86/pc/olpc/security.fth
===================================================================
--- cpu/x86/pc/olpc/security.fth	2007-10-02 07:26:52 UTC (rev 664)
+++ cpu/x86/pc/olpc/security.fth	2007-10-02 07:52:21 UTC (rev 665)
 <at>  <at>  -442,19 +442,17  <at>  <at> 

 : text-on  screen-ih stdout !  ;

+: visible  dcon-unfreeze text-on   ;
+
 : ?unfreeze  ( -- )
-   game-key <at>  button-check and  if
-      dcon-unfreeze text-on
-      unfreeze
-   then
+   game-key <at>  button-check and  if  visible unfreeze  then
 ;

 : security-failure  ( -- )
+   visible
    ." Security failure" cr