\ From: vaitl@ucselx.sdsu.edu (Eric Vaitl)
\ To: jvn@fermi.clas.Virginia.EDU
\ Subject: Re: e-forth has no DOES> !!!
\ Newsgroups: comp.lang.forth

: NOP ( does nothing, just a place saver ) ;

: CREATE        ( just like the original, except for the NOP )
    TOKEN $,n OVERT
    doLIT doLIST call,
    COMPILE NOP COMPILE doVAR ;

: does>         ( helping function )
    LAST @ NAME> DUP
    doLIT branch SWAP 4 + ! DUP
    HERE SWAP 6 + !
    COMPILE doLIT
    8 + ,
    COMPILE branch ;

: DOES>     ( here it is! )
    doLIT does> ,
    doLIT doLIT ,
    HERE 6 + ,
    doLIT , ,
    doLIT EXIT ,
    ; IMMEDIATE

