Annotation of gforth/compat/defer.fs, revision 1.1

1.1     ! anton       1: \ deferred words and perform
        !             2: 
        !             3: \ This file is in the public domain. NO WARRANTY.
        !             4: 
        !             5: : noop ;
        !             6: 
        !             7: : perform ( ? addr -- ? )
        !             8:     @ execute ;
        !             9: 
        !            10: : defer ( "name" -- )
        !            11:     create ['] noop , \ you should not rely on initialization with noop
        !            12: does> ( ? -- ? )
        !            13:     perform ;
        !            14: 
        !            15: : <is> ( xt "name" -- )
        !            16:     ' >body ! ;
        !            17: 
        !            18: : [is] ( compilation: "name" -- ; run-time: xt -- )
        !            19:     ' >body postpone Literal postpone ! ; immediate
        !            20:     
        !            21: 

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