Return to defer.fs CVS log | Up to [gforth] / gforth / compat |
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: