X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme_port.scheme;fp=src%2Fscheme%2Fao_scheme_port.scheme;h=0000000000000000000000000000000000000000;hb=f26cc1a677f577da533425a15485fcaa24626b23;hp=886aed2509ed4b8586cd2e36b172f7e981219517;hpb=4b52fc6eea9a478cb3dd42dcd32c92838df39734;p=fw%2Faltos

diff --git a/src/scheme/ao_scheme_port.scheme b/src/scheme/ao_scheme_port.scheme
deleted file mode 100644
index 886aed25..00000000
--- a/src/scheme/ao_scheme_port.scheme
+++ /dev/null
@@ -1,43 +0,0 @@
-;
-; 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")