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 / library.4th < prev    next >
Encoding:
Text File  |  1994-07-24  |  843 b   |  33 lines
  1. \
  2. \ library.4th ---    Library code for pfe, load file.
  3. \
  4. \ (duz 22May94)
  5. \
  6.  
  7. REDEFINED-MSG OFF
  8. : HAVE        BL WORD FIND NIP ;
  9. : [IFDEF]    HAVE    POSTPONE [IF] ; IMMEDIATE
  10. : [IFNDEF]    HAVE 0= POSTPONE [IF] ; IMMEDIATE
  11. REDEFINED-MSG ON
  12.  
  13. [IFDEF] FORGET-LIBRARY FORGET-LIBRARY [THEN]
  14. ONLY  EXTENSIONS ALSO  FORTH ALSO DEFINITIONS  DEFAULT-ORDER
  15. MARKER FORGET-LIBRARY
  16.  
  17. \ =======================================================================
  18. \ include individual features
  19. \ =======================================================================
  20.  
  21.   INCLUDE sh-libs
  22.   INCLUDE loading
  23.   INCLUDE defer-is
  24.   INCLUDE doermake
  25.   INCLUDE arrays
  26.   INCLUDE pardot
  27.  
  28. \ =======================================================================
  29. \ String stuff
  30. \ =======================================================================
  31.  
  32. : "        POSTPONE S" OVER + 0 SWAP C! ;
  33.