Changeset 2879

Timestamp:

Feb 24, 2012 7:40:33 AM (15 months ago)

Author:

quozl

Message:

OLPC XO-1.5 - ds1385 - items left on stack after selftest, fix for #11653

File:

• dev/ds1385r.fth (modified) (1 diff)

dev/ds1385r.fth

@@ -154 +154 @@
 ;
 
-: selftest  ( -- flag )
+: selftest  ( -- error? )
    open drop
-   check-battery  \ Don't display the message here because "open" will do it
-   check-tick or
-   get-time .date space .time cr
-   get-time 2nip 2nip nip
-   d# 2011 < dup  if  ." Date in RTC is too early" cr  then
+   check-battery                                ( error? )
+   check-tick or                                ( error? )
+   get-time .date space .time cr                ( error? )
+   get-time 2nip 2nip nip                       ( error? year )
+   d# 2011 < dup  if                            ( error? bad-year? )
+      ." Date in RTC is too early" cr
+   then
+   or                                           ( error? )
    close
 ;