altos/scheme: Split tests out from build sources

[fw/altos] / src / scheme / ao_scheme_port.scheme

diff --git a/src/scheme/ao_scheme_port.scheme b/src/scheme/ao_scheme_port.scheme
index e4fa06cc5fb814da9b4ff67a740b6ded66d56d7b..886aed2509ed4b8586cd2e36b172f7e981219517 100644 (file)
--- a/src/scheme/ao_scheme_port.scheme
+++ b/src/scheme/ao_scheme_port.scheme
@@ -26,6 +26,10 @@
 (newline)
 (newline (open-output-file "/dev/null"))
 
+(define (eof-object? a)
+  (equal? a 'eof)
+  )
+
 (define (load name)
   (let ((p (open-input-file name))
        (e))