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>