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

(if #t ...) around it.

scsh/scsh.scm

@@ -882,7 +882,7 @@
   (flush-all-ports)
   (exit/errno (:optional  maybe-status 0))
   (display "The evil undead walk the earth." 2)
-  (error "(exit) returned."))
+  (if #t (error "(exit) returned.")))
 
 
 ;;; The classic T 2.0 primitive.
@@ -893,7 +893,7 @@
 ;;; Low-level init absolutely required for any scsh program.
 
 (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.
 ;  (init-fdports!)
 ;  (%install-unix-scsh-handlers)