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. ; JMG For scsh.
(define (load-into-port port p) (define (load-into-port port p)
(compile-and-run-port port p (error "JMG: load into port called. See rts/eval"))
(lambda (template) ; (compile-and-run-port port p
(invoke-template template p)) ; (lambda (template)
(current-noise-port) ; (invoke-template template p))
#t)); JMG whatever #t means... ; (current-noise-port)
; #t)); JMG whatever #t means...
(define (load-port port . package-option) (define (load-port port . package-option)
(let ((p (if (null? package-option) (error "JMG: load port called. See rts/eval "))
(interaction-environment) ; (let ((p (if (null? package-option)
(car package-option)))) ; (interaction-environment)
(noting-undefined-variables p ; (car package-option))))
(lambda () ; (noting-undefined-variables p
(load-into-port port p))))) ; (lambda ()
; (load-into-port port p)))))
;---------------- ;----------------