+++ /dev/null
-;
-; Copyright © 2018 Keith Packard <keithp@keithp.com>
-;
-; This program is free software; you can redistribute it and/or modify
-; it under the terms of the GNU General Public License as published by
-; the Free Software Foundation, either version 2 of the License, or
-; (at your option) any later version.
-;
-; This program is distributed in the hope that it will be useful, but
-; WITHOUT ANY WARRANTY; without even the implied warranty of
-; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-; General Public License for more details.
-;
-; port functions placed in ROM
-
-
-(define newline
- (lambda args
- (if (null? args)
- (write-char #\newline)
- (write-char #\newline (car args))
- )
- )
- )
-
-(newline)
-(newline (open-output-file "/dev/null"))
-
-(define (eof-object? a)
- (equal? a 'eof)
- )
-
-(define (load name)
- (let ((p (open-input-file name))
- (e))
- (while (not (eof-object? (set! e (read p))))
- (write (eval e)) (newline)
- )
- (close-port p)
- )
- )
-
-(load "/dev/null")