forth/admin/reset.fs


1
2
3
4
5
6
7
8
9
10
11
12

\ 7.4.7    Reset

defer reset-all    ( -- )

: no-reset-all
  s" reset-all is not available on this platform." type cr
  ;

' no-reset-all to reset-all 

\ OpenBOOT knows reset as well.
: reset reset-all ;