X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme_port.scheme;fp=src%2Fscheme%2Fao_scheme_port.scheme;h=886aed2509ed4b8586cd2e36b172f7e981219517;hp=e4fa06cc5fb814da9b4ff67a740b6ded66d56d7b;hb=283553f0f118cef1dbcfbf5e86a43575a610d27f;hpb=48d164e3d4b2ef27fae20fae63b8014803a7b178

diff --git a/src/scheme/ao_scheme_port.scheme b/src/scheme/ao_scheme_port.scheme
index e4fa06cc..886aed25 100644
--- 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))