From f8975842deca31bce1fc074e1afe613570cdfb2b Mon Sep 17 00:00:00 2001
From: marting <marting>
Date: Fri, 8 Oct 1999 18:06:39 +0000
Subject: [PATCH] load-port/load-into-port now yield errors when called, since
 I don't know where they could be used

---
 scheme/rts/eval.scm | 24 +++++++++++++-----------
 1 file changed, 13 insertions(+), 11 deletions(-)

diff --git a/scheme/rts/eval.scm b/scheme/rts/eval.scm
index 7654b21..c8b85a3 100644
--- a/scheme/rts/eval.scm
+++ b/scheme/rts/eval.scm
@@ -32,19 +32,21 @@
 ; JMG For scsh.
 
 (define (load-into-port port p)
-  (compile-and-run-port port p
-			(lambda (template)
-			  (invoke-template template p))
-			(current-noise-port)
-			#t)); JMG whatever #t means...
+  (error "JMG: load into port called. See rts/eval"))
+ ; (compile-and-run-port port p
+;			(lambda (template)
+;			  (invoke-template template p))
+;			(current-noise-port)
+;			#t)); JMG whatever #t means...
 
 (define (load-port port . package-option)
-  (let ((p (if (null? package-option)
-	       (interaction-environment)
-	       (car package-option))))
-    (noting-undefined-variables p
-      (lambda ()
-	(load-into-port port p)))))
+  (error "JMG: load port called. See rts/eval "))
+;  (let ((p (if (null? package-option)
+;	       (interaction-environment)
+;	       (car package-option))))
+;    (noting-undefined-variables p
+;      (lambda ()
+;	(load-into-port port p)))))
 
 ;----------------