Add abort, abort" and start on testing throw values.

common/all_tests.fs

@@ -16,6 +16,7 @@ needs testing.fs
 needs utils.fs
 needs base_tests.fs
 needs utils_tests.fs
+needs throw_values_tests.fs
 needs vocabulary_tests.fs
 needs locals_tests.fs
 needs case_tests.fs

common/forth_namespace_tests.fs

@@ -63,6 +63,8 @@ e: check-boot
   out: tib 
   out: accept 
   out: echo 
+  out: abort" 
+  out: abort 
   out: z>s 
   out: s>z 
   out: r~ 

common/io.fs

@@ -60,6 +60,10 @@ variable hld
    if cr ." ERROR: " type ."  NOT FOUND!" cr -1 throw then ;
 ' notfound 'notfound !
 
+( Abort )
+: abort   -1 throw ;
+: abort"   postpone ." postpone cr -2 aliteral postpone throw ; immediate
+
 ( Input )
 : raw.s   depth 0 max for aft sp@ r@ cells - @ . then next ;
 variable echo -1 echo !   variable arrow -1 arrow !  0 value wascr

common/throw_values_tests.fs

@@ -0,0 +1,25 @@
+\ Copyright 2021 Bradley D. Nelson
+\
+\ Licensed under the Apache License, Version 2.0 (the "License");
+\ you may not use this file except in compliance with the License.
+\ You may obtain a copy of the License at
+\
+\     http://www.apache.org/licenses/LICENSE-2.0
+\
+\ Unless required by applicable law or agreed to in writing, software
+\ distributed under the License is distributed on an "AS IS" BASIS,
+\ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+\ See the License for the specific language governing permissions and
+\ limitations under the License.
+
+( Testing thrown values )
+
+e: test-abort
+  ' abort catch -1 =assert
+;e
+
+e: test-abort"
+  : test abort" doh!" ;
+  ' test catch -2 =assert
+  out: doh!
+;e