diff options
Diffstat (limited to 'src/scheme/ao_scheme_port.scheme')
| -rw-r--r-- | src/scheme/ao_scheme_port.scheme | 4 |
1 files changed, 4 insertions, 0 deletions
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)) |