r819 - forth/lib

Author: wmb
Date: 2008-03-06 17:29:11 +0100 (Thu, 06 Mar 2008)
New Revision: 819

Modified:
   forth/lib/editcmd.fth
Log:
Added an error handler to do-command so that the system won't
crash if one of the keystroke commands aborts.

Modified: forth/lib/editcmd.fth
===================================================================
--- forth/lib/editcmd.fth	2008-03-06 05:28:23 UTC (rev 818)
+++ forth/lib/editcmd.fth	2008-03-06 16:29:11 UTC (rev 819)
@@ -44,7 +44,7 @@
    name-buf "copy
    name-buf lastchar @  add-char-to-name
    name-buf count  keys token@ search-wordlist  ( false | cfa true )
-   if  execute  else  not-found  then
+   if  catch drop  else  not-found  then
 ;

defer printable-char