From eb9410cc44f6f9cb3de5b28fbc790a4ca31740e6 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Tue, 13 Jan 2004 12:08:28 +0000
Subject: [PATCH] Fix bug in S48_RECORD_TYPE: third parameter to s48_stob_ref
 was missing.

---
 scheme/link/generate-c-header.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/link/generate-c-header.scm b/scheme/link/generate-c-header.scm
index 9bc95ac..4073dd8 100644
--- a/scheme/link/generate-c-header.scm
+++ b/scheme/link/generate-c-header.scm
@@ -174,7 +174,7 @@
 			  type index))
 	      '("VECTOR" "RECORD")
 	      '("(i)" "(i) + 1"))
-    (c-define "S48_RECORD_TYPE(x) (s48_stob_ref((x), S48_STOBTYPE_RECORD))")
+    (c-define "S48_RECORD_TYPE(x) (s48_stob_ref((x), S48_STOBTYPE_RECORD, 0))")
     (c-define "S48_UNSAFE_RECORD_TYPE(x) (STOB_REF((x), 0))")
     (for-each (lambda (type)
 		(c-define "S48_~A_LENGTH(x) (s48_stob_byte_length((x), S48_STOBTYPE_~A))"