\ e4thcom/test                                                        MM-260501
\ ------------------------------------------------------------------------------
\ Test file for target response evaluation for targets with case-insensitive
\ dictionary search.
\
\ Open a terminal emulator in the e4thcom directory and start e4thcom with
\ the following options. 
\
\       ./e4thcom -t test [-b B...] [-d tty....] [Enter]
\
\ Then enter   #i test [Enter]   at the command line to load this file.
\ ------------------------------------------------------------------------------

\ Target response if no error occures in interpret mode:

base @

drop

cr

' base drop


\ Target response if an error occures in interpret mode:

' x

x

quit

abort

drop

: y ( -- )  -1 abort" Error" ;

y


\ Target response if no error occures in compile mode:

: z ( -- )
    base @ drop
;

: z1 ( -- ) 
    base @ 
    [ .( hallo ) cr space .( world ) ]
    drop ." it's Forth" 
;

: base ( -- a ) base ;


\ Target response if an error occures in compile mode:

: y1 ( -- )
     ['] x execute ;

: y ( -- ) base _@ . ;


\\

