From 4c10e069ff023e97ee81c4cc32abfd5847151753 Mon Sep 17 00:00:00 2001
From: eknauel <eknauel>
Date: Wed, 14 Jan 2004 09:08:19 +0000
Subject: [PATCH] fixed bug in s48_enter_* code generation

---
 ffi-tools/ffi-tools.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ffi-tools/ffi-tools.scm b/ffi-tools/ffi-tools.scm
index 3908a7e..8350a8e 100644
--- a/ffi-tools/ffi-tools.scm
+++ b/ffi-tools/ffi-tools.scm
@@ -69,7 +69,7 @@
     (format "~a = s48_enter_integer(~a);~%"
 	    (constant-c-value-name c) (constant-c-name c)))
    ((constant-type-string? c)
-    (format "~a = s48_enter_integer(~a);~%"
+    (format "~a = s48_enter_string(~a);~%"
 	    (constant-c-value-name c) (constant-c-name c)))
    (else
     (error "Don't know how to handle this constant type: "