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