Changeset 2589


Ignore:
Timestamp:
Oct 11, 2011, 10:19:10 PM (3 years ago)
Author:
wmb
Message:

OLPC - add some guards to load-from-list.

File:
1 edited

Legend:

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

    r2586 r2589  
    12311231            2drop                           ( ) 
    12321232            ['] secure-load-ramdisk to load-ramdisk 
    1233             " init-program" $find  if 
    1234 \              set-cmdline 
    1235                execute 
    1236                sound-end 
    1237                go 
     1233            " init-program" $find  if       ( xt ) 
     1234\              set-cmdline                  ( xt ) 
     1235               catch  ?dup  if              ( error ) 
     1236                  .error                    ( ) 
     1237               else                         ( ) 
     1238                  sound-end                 ( ) 
     1239                  ['] go guarded            ( ) 
     1240               then 
    12381241            then 
    12391242            show-x 
Note: See TracChangeset for help on using the changeset viewer.