From 7d0982992cf039ead9954d446fb5b1f62e8e9ff4 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Fri, 29 Jan 2016 23:34:57 -0500
Subject: [PATCH] Added eof-object

---
 scheme/base.sld | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/scheme/base.sld b/scheme/base.sld
index d4c57b48..43c61552 100644
--- a/scheme/base.sld
+++ b/scheme/base.sld
@@ -120,6 +120,7 @@
     round
     exact
     inexact
+    eof-object
 
 ;;;;
 ; Possibly missing functions:
@@ -146,7 +147,6 @@
 ;    define-record-type
 ;    define-values
 ;    denominator
-;    eof-object
 ;    get-output-string
 ;    guard
 ;    import
@@ -913,4 +913,7 @@
       Cyc_check_num(data, z2);
       d.value = pow( unbox_number(z1), unbox_number(z2) );
       return_closcall1(data, k, &d); ")
+  (define eof-object
+    "(void *data, int argc, closure _, object k)"
+    " return_closcall1(data, k, Cyc_EOF); ")
 ))