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

\ deferred words and perform

\ This file is in the public domain. NO WARRANTY.

: noop ;

: perform ( ? addr -- ? )
    @ execute ;

: defer ( "name" -- )
    create ['] noop , \ you should not rely on initialization with noop
does> ( ? -- ? )
    perform ;

: <is> ( xt "name" -- )
    ' >body ! ;

: [is] ( compilation: "name" -- ; run-time: xt -- )
    ' >body postpone Literal postpone ! ; immediate
    


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