Transitioning to julia 0.6 (may be hard)
[forth.jl.git] / src / lib_3_input.4th
1 \ Input stream definitions
2
3 : SOURCE-ID
4     SOURCE-ID-VAR @ ;
5
6 : QUERY-INPUT
7     SOURCE-ID ?DUP 0= IF
8         QUERY
9     ELSE
10         QUERY-FILE
11     THEN
12 ;