Sleazy fix for the inliner: procedures can't "return" error, so wrap a

(if #t ...) around it.
This commit is contained in:
mainzelm 2001-04-09 07:59:17 +00:00
parent e3e3f2adab
commit 5500490a1d
1 changed files with 2 additions and 2 deletions

View File

@ -882,7 +882,7 @@
(flush-all-ports) (flush-all-ports)
(exit/errno (:optional maybe-status 0)) (exit/errno (:optional maybe-status 0))
(display "The evil undead walk the earth." 2) (display "The evil undead walk the earth." 2)
(error "(exit) returned.")) (if #t (error "(exit) returned.")))
;;; The classic T 2.0 primitive. ;;; The classic T 2.0 primitive.
@ -893,7 +893,7 @@
;;; Low-level init absolutely required for any scsh program. ;;; Low-level init absolutely required for any scsh program.
(define (init-scsh-hindbrain relink-ff?) (define (init-scsh-hindbrain relink-ff?)
(error "call to init-scsh-hindbrain which is dead") (if #t (error "call to init-scsh-hindbrain which is dead"))
; (if relink-ff? (lookup-all-externals)) ; Re-link C calls. ; (if relink-ff? (lookup-all-externals)) ; Re-link C calls.
; (init-fdports!) ; (init-fdports!)
; (%install-unix-scsh-handlers) ; (%install-unix-scsh-handlers)