\
\ Purpose: Provide the not-found system hook
\
\ Author: Matthias Trute
\ Date: Sep 14, 2017
\ License: Public Domain
\
\ Add the rec-notfound as the last recognizer and
\ it will call a hook. It should not return, for
\ testing purposes, the one below does nothing but
\ clean up the stack.
s" Recognizer.4th" included
\ the general system hook
defer not-found ( addr len -- )
\ and its default action
:noname ( addr len -- )
2DROP
-13 \ throw
; is not-found
' not-found dup dup rectype: rectype-notfound
: rec-notfound ( addr len -- addr len rectype-notfound )
rectype-notfound
;
\ ------------- Test Cases ------------
: huhu s" huhu " ;
T{ huhu rec-notfound -> huhu rectype-notfound }T
T{ huhu rec-notfound rectype>int execute -> -13 }T