\ Program Name: stack-check.fs  for Mecrisp-Stellaris by Matthias Koch and licensed under the GPL
\ This program: Checks the Data Stack and warns then clears items left on it
\ Hardware: STM32F0 Discovery board
\ Terminal: e4thcom by Copyright (C) 2013-2017 Manfred Mahlow and licensed under the GPL
\ Copyright 2017 t.porter <terry@tjporter.com.au>

: stackcheck cr 
depth ?dup 0= if  exit else ." *** Stack fault: there were ** " . ." ** items left on the stack " cr then
begin
depth 0<> while 
drop				    \ ." stack dropped " cr
repeat ." Stack cleared " cr
;