Changeset 3003


Ignore:
Timestamp:
Jun 7, 2012, 2:04:14 AM (23 months ago)
Author:
quozl
Message:

OLPC XO-1.75 - trim the null properly, #11848

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpu/arm/olpc/banner.fth

    r3002 r3003  
    136136 
    137137: check-tags  ( -- ) 
    138    " TS" find-tag  ?-null  if  " SHIP" $=  if  exit  then 
     138   " TS" find-tag  if  ?-null  " SHIP" $=  if  exit  then 
    139139      red-letters 
    140140      ." WARNING!  TS tag is not SHIP"  cr 
Note: See TracChangeset for help on using the changeset viewer.