From 4038df9b001d0db6c85d983a2244718fd13701cf Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 10 Aug 2017 14:51:29 +0000
Subject: [PATCH] Added (reading-from-file?)

---
 read.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/read.scm b/read.scm
index 50ce7518..2df33d31 100644
--- a/read.scm
+++ b/read.scm
@@ -672,6 +672,15 @@
       (parse fp '() '() #f #f 0 (reg-port fp)))))
 
 
+(define-c reading-from-file?
+  "(void *data, int argc, closure _, object k, object port)"
+  " object result = boolean_f;
+    Cyc_check_port(data, port);
+    if (((port_type *)port)->flags == 1) {
+      result = boolean_t;
+    }
+    return_closcall1(data, k, result);")
+
 ;    ;; Test code
 ;    ;(let ((fp (open-input-file "tests/begin.scm")))
 ;    ;(let ((fp (open-input-file "tests/strings.scm")))