X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=blobdiff_plain;f=src%2Flib_3_input.4th;fp=src%2Flib_3_input.4th;h=735a8799d990f1b84b1a23cbc615266b29ebb553;hb=30a093845e2d1097242e948bb577fb71f73bc860;hp=0000000000000000000000000000000000000000;hpb=c52194127d604bd365f7222936b46f34f62a4814;p=forth.jl.git

diff --git a/src/lib_3_input.4th b/src/lib_3_input.4th
new file mode 100644
index 0000000..735a879
--- /dev/null
+++ b/src/lib_3_input.4th
@@ -0,0 +1,12 @@
+\ Input stream definitions
+
+: SOURCE-ID
+    SOURCE-ID-VAR @ ;
+
+: QUERY-INPUT
+    SOURCE-ID ?DUP 0= IF
+        QUERY
+    ELSE
+        QUERY-FILE
+    THEN
+;