SOURCE-ID

( -- 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

ContributeContributions