11.6.1.2218
SOURCE-ID
source-i-d
FILE
 
( -- 0 | -1 | fileid )

Extend 6.2.2218 SOURCE-ID to include text-file input as follows:


SOURCE-ID Input source

fileid Text file "fileid"
-1 String (via EVALUATE)
0 User input device

An ambiguous condition exists if SOURCE-ID is used when BLK contains a non-zero value.

Testing:
T{ SOURCE-ID DUP -1 = SWAP 0= OR -> <FALSE> }T