--- gforth/test/other.fs	1999/11/14 10:22:27	1.13
+++ gforth/test/other.fs	2000/04/27 08:51:33	1.15
@@ -142,6 +142,31 @@ s" //jkfklfggfld/fjsjfk/hjfdjs" open-fpa
 
 here 1+ head? throw
 
+\ [compile] exit = exit
+
+: foo [compile] exit abort" '[compile] exit' broken" ;
+foo
+
+\ restore-input
+
+: test-restore-input[ ( -- )
+    refill 0= abort" refill failed"
+    bl word drop
+    save-input
+    refill 0= abort" refill failed"
+    -1 ;
+
+: ]test-restore-input ( -- )
+    drop restore-input abort" restore-input failed" 0 ;
+
+\ First input is skipped until the "]test-restore-input", then it is
+\ reset to just before "0 [if]"
+test-restore-input[ abort \ these aborts are skipped
+abort 0 [if]
+    s" oops" 2drop ]test-restore-input abort
+[then]
+( 0 ) throw
+
 \ comments across several lines
 
 ( fjklfjlas;d