Provide LOAD-PORT to load forms from a port.

scheme/bcomp/read-form.scm

@@ -23,12 +23,12 @@
        (let ((o-port (current-noise-port)))
 	 (display truename o-port)
 	 (force-output o-port)
-	 (really-read-forms port)))
+	 (read-forms-from-port port)))
      (lambda ()
        (close-input-port port)
        (set! port #f)))))
 
-(define (really-read-forms port)	    
+(define (read-forms-from-port port)	    
   (let loop ((forms '()))
     (let ((form (read port)))
       (if (eof-object? form)

scheme/comp-packages.scm

@@ -178,7 +178,7 @@
 ; Reading the forms in a file.
 ; This is used by scan-package and rts/eval.scm.
 
-(define-structure reading-forms (export read-forms $note-file-package)
+(define-structure reading-forms (export read-forms read-forms-from-port $note-file-package)
   (open scheme-level-2
 	fluids filenames
 	signals				;error

scheme/interfaces.scm

@@ -1181,6 +1181,7 @@
 
 (define-interface evaluation-interface
   (export eval load load-into eval-from-file
+          load-port
 	  ; eval-scanned-forms
 	  ))
 

scheme/rts/eval.scm

@@ -29,24 +29,13 @@
 		     (interaction-environment)
 		     (car package-option))))
     (really-load-into filename package #t)))
-; JMG For scsh.
-
-(define (load-into-port port p)
-  (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)
-  (error "JMG: load port called. See rts/eval "))
+  (let ((package (if (null? package-option)
-;  (let ((p (if (null? package-option)
+                     (interaction-environment)
-;	       (interaction-environment)
+                     (car package-option)))
-;	       (car package-option))))
+        (forms (read-forms-from-port port)))
-;    (noting-undefined-variables p
+    (compile-and-run forms package #f #t)))
-;      (lambda ()
-;	(load-into-port port p)))))
 
 ;----------------