fixed bug in s48_enter_* code generation

2004-01-14 09:08:19 +00:00 · 2004-01-14 09:08:19 +00:00 · 4c10e069ff
parent 82e66e882b
commit 4c10e069ff
1 changed files with 1 additions and 1 deletions
--- 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: "