===== cls =====

Ein Hilfe die ich gerne benutze wenn neuer Forth Code interaktiv ausgetestet wird.

<code>

: cls  ( x0 .. xn -- ) \ clear stack
  depth 0= IF ( noop) ELSE  depth 0 do drop loop THEN ;

</code>

Ein andere Variante ist diese:

<code>

: CLEAR  ( i*x -- )  \ clear stack  
  DEPTH 0 ?DO DROP LOOP ;

</code>

Wil Baden formulierte das einmal so: "CLEAR has also been used to clear the screen, clear a variable or structure, and other similar uses. It's use is almost certain to cause confusion to someone. Save it for a temporary debug." [[http://www.albany.net/~hello/comus.htm#clear|(Quelle)]]

Und fuhr dann fort: "The oldest debug tool I use is .. ."

<code>

: ..  ( i*x -- )
   DEPTH IF  .S  DEPTH 0 DO DROP LOOP  THEN ;

</code>

"This is the only way I would ever clear the stack."