\ e4thcom/TEST                                                        MM-260501
\ ------------------------------------------------------------------------------
\ Test file for target response evaluation for targets with case-sensitive
\ dictionary search.
\
\ Open a terminal emulator in the e4thcom directory and start e4thcom with
\ the following options. 
\
\       ./e4thcom -t test [-b B...] [-d tty....]
\
\ 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 EXECUE ;

: y ( -- ) BASE _@ . ;


\\

