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 ;