From 5d4b66daf41e76e29969e847fbb72dd4bd91a6f8 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Sun, 25 Mar 2001 12:08:45 +0000
Subject: [PATCH] Upgraded inliner from 0.54. There is still a bug as a call to
 error must not be the last expression of a procedure. No fix for now, use (if
 #t (error ...)) as a workaround

---
 scheme/comp-packages.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/comp-packages.scm b/scheme/comp-packages.scm
index f32f0b5..4e111c6 100644
--- a/scheme/comp-packages.scm
+++ b/scheme/comp-packages.scm
@@ -293,7 +293,7 @@
 
 (define-structure analysis (export analyze-forms)
   (open scheme-level-2
-	meta-types bindings nodes
+	meta-types bindings nodes primops
 	packages-internal	;package-add-static!
 	inline
 	usages