17 lines
385 B
Forth
17 lines
385 B
Forth
require unix/socket.fs
|
|
|
|
require configuration.4th
|
|
|
|
s" gforth" environment? [IF]
|
|
s" 0.7.3" compare 0= [IF]
|
|
require extensions/gforth-0.7.3.4th
|
|
[ELSE]
|
|
\ we assume the latest version, as 0.7.3 is more than 10 years old already
|
|
require extensions/gforth-latest.4th
|
|
[THEN]
|
|
require extensions/generic.4th
|
|
[ELSE]
|
|
2drop cr ." We should never reach this." cr
|
|
abort
|
|
[THEN]
|