gforth/test/other.fs - diff

Return to other.fs CVS log

Up to [gforth] / gforth / test

-version 1.12, 1999/04/12 10:17:52
+version 1.15, 2000/04/27 08:51:33
  Line 138  s" //jkfklfggfld/fjsjfk/hjfdjs" open-fpa
 allot
  -1 allot
+ \ unaligned input for head?
+ 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