File:  [gforth] / gforth / compat / defer.fs
Revision 1.1: download - view: text, annotated - select for diffs
Wed Apr 29 17:09:46 1998 UTC (25 years, 11 months ago) by anton
Branches: MAIN
CVS tags: v0-6-2, v0-6-1, v0-6-0, v0-5-0, v0-4-0, HEAD
tables are in the image again
added assert.fs defer.fs exception.fs vocabulary.fs to the compat directory

    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>