Add :error word

db4
Slava Pestov 2008-09-29 04:09:13 -05:00
parent e62f068db7
commit df88e5a974
1 changed files with 3 additions and 0 deletions

View File

@ -22,6 +22,9 @@ M: tuple error-help class ;
M: string error. print ;
: :error ( -- )
error get error. ;
: :s ( -- )
error-continuation get data>> stack. ;