Changeset 3662


Ignore:
Timestamp:
May 21, 2013, 3:37:34 AM (19 months ago)
Author:
quozl
Message:

OLPC - avoid duplicate file creation. #12684.

Files:
2 edited

Legend:

Unmodified
Added
Removed
  • cpu/x86/pc/olpc/terminal.fth

    r3618 r3662  
    338338: serial-log  ( "filename" -- ) 
    339339   serial{ 
    340    safe-parse-word $create-file to log-ih 
     340   safe-parse-word 
     341   2dup ['] $delete  catch  if  2drop  then 
     342   $create-file to log-ih 
    341343   log-ih add-output 
    342344   {serial} 
  • dev/olpc/spiflash/spiui.fth

    r3364 r3662  
    146146   flash-open 
    147147   make-sn-name                               ( name$ ) 
     148   2dup ['] $delete  catch  if  2drop  then   ( name$ ) 
    148149   ." Creating " 2dup type cr                 ( name$ ) 
    149150   $create-file                               ( ihandle ) 
Note: See TracChangeset for help on using the changeset viewer.