# dynamic words: task local words stored on the return stack

# would be nice to have them clean up automaticly

create dynamic-cleanup ] rdrop rdrop leave [

: dynamic postpone d> 
	  postpone >r 
	  dynamic-cleanup 
	  postpone literal 
	  postpone >r ; immediate