diff options
| author | Keith Packard <keithp@keithp.com> | 2018-01-07 23:04:22 -0800 |
|---|---|---|
| committer | Keith Packard <keithp@keithp.com> | 2018-01-07 23:04:22 -0800 |
| commit | 283553f0f118cef1dbcfbf5e86a43575a610d27f (patch) | |
| tree | 9a17095f56e0068e150ebf93c33649ba133c2813 /src/scheme/ao_scheme_port.scheme | |
| parent | 48d164e3d4b2ef27fae20fae63b8014803a7b178 (diff) | |
altos/scheme: Split tests out from build sources
Run tests on both tiny and full scheme test programs.
Signed-off-by: Keith Packard <keithp@keithp.com>
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)) |