Annotation of gforth/compat/interactive-does.fs, revision 1.1

1.1     ! pazsan      1: wordlist constant oneshot-me
        !             2: get-current
        !             3: oneshot-me set-current
        !             4: : ; postpone ; previous execute ; immediate
        !             5: set-current
        !             6: : >order  ( wid -- ) >r get-order r> swap 1+ set-order ;
        !             7: : oneshot: :noname oneshot-me >order ;
        !             8: 
        !             9: : DOES> state @ IF
        !            10:      postpone DOES>
        !            11:   ELSE
        !            12:     oneshot: postpone DOES>
        !            13:   THEN ; immediate

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>