index.fth

include ./lib/search-order.fth \ the word "also-wordlist"

wordlist dup constant scratchpad also-wordlist definitions
\ in "scatchpad"

\ Include libraries

\ load "bracket-if.fth"  if `[if]` is absent or does not work in lower case
:noname ( sd.fn sd.test -- ) ['] evaluate catch if 2drop 0 then if 2drop else included then ;
s" ./lib/bracket-if.fth" s" 0 0 [if] [else] drop -1 [then]" 4 pick execute drop

include ./index.lib-compat.fth
include ./lib/string-match.fth
include ./lib/compat/little-known-words.fth \ now it needs `equals`
include ./lib/memory.fth \ it provides `string-copy-if-source`

\ The word `find-word` and a test whether the system is dual-xt
include ./lib/find-word.fth

\ Define a simple version of `synonym` if it is not provided by the system
\ (NB: after "./lib/find-word.fth")
include ./lib/compat/synonym.fth

\ Load an implementation for relative `included`, if it is not supported by the system
s" ./lib/compat/relative-include-test.fth" included 0= [if]
  .( [info loading support for paths relative to the parent file in `included`] ) cr
  include ./lib/relative-include.fth
[then]


\ Include Recognizer API and examples
wordlist dup constant variant.gamma  also-wordlist definitions
\ in "variant.gamma"

include ./variant.gamma/index.fth

\ The search order at this point:  forth scratchpad variant.gamma  \ <-- top