r385 - cpu/x86/pc/olpc

Author: wmb
Date: 2007-05-16 10:37:18 +0200 (Wed, 16 May 2007)
New Revision: 385

Modified:
   cpu/x86/pc/olpc/gui.fth
Log:
OLPC graphical boot - suppressed "Can't open file" message for nonexistent icons.

Modified: cpu/x86/pc/olpc/gui.fth
===================================================================
--- cpu/x86/pc/olpc/gui.fth	2007-05-16 08:36:26 UTC (rev 384)
+++ cpu/x86/pc/olpc/gui.fth	2007-05-16 08:37:18 UTC (rev 385)
@@ -26,10 +26,10 @@
 ;

: $get-image  ( filename$ -- true | adr,len false )
-   ['] $read-open catch  if  2drop true exit  then  ( )
-   ifd @ fsize  dup alloc-mem swap   ( bmp-adr,len )
-   2dup  ifd @ fgets  over <>        ( bmp-adr,len error? )
-   ifd @ fclose                      ( bmp-adr,len )
+   r/o open-file  if  drop true  exit  then   >r    ( r: fd )
+   r@ fsize  dup alloc-mem swap          ( bmp-adr,len  r: fd )
+   2dup  r@ fgets  over <>               ( bmp-adr,len error?  r: fd )
+   r> fclose                             ( bmp-adr,len )
    if  free-mem true  else  false  then  ( true | bmp-adr,len false )
 ;
 : $show  ( filename$ -- )