( s -- s' )
( This macro strips off the leading spaces of a string.          )
( The algorithm is stolen from auzzie's .del_front_spaces macro. )
( Slightly modified by byte.                                     )
 
: del_front_spaces
dup "" " " subst        ( make copy of string with all spaces stripped  )
dup "" stringcmp not if ( if the original only contained spaces         )
  swap pop              ( we're done                                    )
else                    ( if not, the first character of the new string )
  1 strcut pop          ( is the first non-space character              )
  over swap instr       ( so find out where the first occurance is      )
  1 - strcut swap pop   ( and cut off all the preceding spaces          )
then
;