11 The optional File-Access word set

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

ContributeContributions

flaagelavatar of flaagel [264] Incorrect Test PatternSuggested Testcase2022-09-06 14:26:04

It should be:

T{ SOURCE-ID DUP -1 = SWAP 0= OR -> <TRUE> }T

ruvavatar of ruv

It's wrong. Where have you tested this code?

flaagelavatar of flaagel

Apologies.

Closed
Reply New Version