lib/marker                                                                                                                      This implements "mark" and "empty" words to use when you need   the ability to "forget" code later on. "mark" adds a marker     and "empty" erases everything up to and including the marker.                                                                                                                                                                                                   loc:                                                              : state here macro last @ , forth last @ , here , ;             : restoreDict dup @ macro last ! cell+ dup @ forth last ! ;     : restoreHere cell+ @ here - allot ;                            : restore restoreDict restoreHere ;                             : empty s" empty" entry ;                                       here ] state empty literal, ['] restore compile $c3 1, ;      ;loc alias mark                                                 