scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

load-port/load-into-port now yield errors when called, since I don't know where they could be used

This commit is contained in:
marting 1999-10-08 18:06:39 +00:00
parent c2045e6407
commit f8975842de
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
scheme/rts/eval.scm
View File

@ -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)))))
;----------------