* (MARKER) ( str-ptr str-len -- ) create a named marker that you can use to FORGET , running the created word will reset the dict/order variables to the state at the creation of this name. : (MARKER) (CREATE) HERE , GET-ORDER DUP , 0 DO ?DUP IF , THEN LOOP 0 , ... DOES> DUP @ (FORGET) ... ;
(MARKER)
( str-ptr str-len -- )
FORGET
: (MARKER) (CREATE) HERE , GET-ORDER DUP , 0 DO ?DUP IF , THEN LOOP 0 , ... DOES> DUP @ (FORGET) ... ;
FORTH/EXTENSIONS core ordinary primitive