From 5500490a1d5f0bb1edf29656a22c5197a247a47a Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Mon, 9 Apr 2001 07:59:17 +0000
Subject: [PATCH] Sleazy fix for the inliner: procedures can't "return" error,
 so wrap a (if #t ...) around it.

---
 scsh/scsh.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/scsh/scsh.scm b/scsh/scsh.scm
index 70b7061..d405737 100644
--- a/scsh/scsh.scm
+++ b/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)