\ OLPC Boot Script for updating the OS and OFW images
\ Originally written by anonymous forth hackers
\ Hacked to bits by cscott@laptop.org -- Forth is fun!
' security-failure is handle-breakpoint

\ Version number!
." Activation key version: 2007-10-16 18:46Z" cr

\ This is magic which Mitch says will work:
screen-ih stdout ! \ show output, even if it makes us not "pretty".
no-page \ but don't use the pager, because the keyboard isn't turned on!
\ (the keyboard is only turned on if we boot holding down a game key)

' . to .error           \ Suppress fancy abort messages
' noop to load-started  \ Suppress the load progress spinner
' noop to ?show-device  \ Suppress the boot progress icons
' false to auto-boot?   \ Suppress automatic booting after this finishes

: unsafe-reflash  ( -- )
    " flash! disk:\q2d05.rom" evaluate
    " disk:" fs-update-from-list
;
: safer-reflash ( -- )
    ['] unsafe-reflash catch  if  security-failure  then
    ." Powering off ..."  d# 1000 ms
    power-off
;

safer-reflash
security-failure \ protect against errors dropping you into an ok prompt.