Changeset 3662


Ignore:
Timestamp:
May 21, 2013, 3:37:34 AM (2 years 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.