home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / forth / pfe-0.000 / pfe-0 / pfe-0.9.13 / lib / defer-is.4th < prev    next >
Encoding:
Text File  |  1994-05-20  |  778 b   |  26 lines
  1. \
  2. \ library.4th ---    Library code for pfe.
  3. \
  4. \ (duz 22May94)
  5. \
  6.  
  7. \ =======================================================================
  8. \ F83-like DEFER and IS for vectorized execution
  9. \ =======================================================================
  10.  
  11. : CRASH        \ --- ; default action when a DEFER is created
  12.         TRUE ABORT" uninitialized DEFER called" ;
  13.  
  14. : DEFER        \ "word" --- \ yes you can do CONSTANT ... DOES> in pfe:
  15.         ['] CRASH CONSTANT DOES> PERFORM ;
  16.  
  17. : IS        \ xt --- \ store in PFA of following word
  18.              \ which should be defined by DEFER
  19.         POSTPONE TO ; IMMEDIATE
  20.  
  21. \ =======================================================================
  22. \ end of defer-is.4th
  23. \ =======================================================================
  24.  
  25. CR .( DEFER...IS loaded. )
  26.