implement source ID, better error handling in nested input

2021-11-27 16:53:34 +01:00
parent 56ab10f6c8
commit d163fb22c5
13 changed files with 113 additions and 75 deletions
@@ -1788,6 +1788,7 @@ TESTING REFILL SOURCE-ID
 \ REFILL and SOURCE-ID from the user input device can't be tested from a file,
 \ can only be tested from a string via EVALUATE

+1 debug
 T{ : RF1  S" REFILL" EVALUATE ; RF1 -> FALSE }T
 T{ : SID1  S" SOURCE-ID" EVALUATE ; SID1 -> -1 }T

@@ -0,0 +1,4 @@
+ 
+: RF1  S" REFILL" EVALUATE ;
+
+RF1