fixed bug in s48_enter_* code generation

This commit is contained in:
eknauel 2004-01-14 09:08:19 +00:00
parent 82e66e882b
commit 4c10e069ff
1 changed files with 1 additions and 1 deletions

View File

@ -69,7 +69,7 @@
(format "~a = s48_enter_integer(~a);~%" (format "~a = s48_enter_integer(~a);~%"
(constant-c-value-name c) (constant-c-name c))) (constant-c-value-name c) (constant-c-name c)))
((constant-type-string? 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))) (constant-c-value-name c) (constant-c-name c)))
(else (else
(error "Don't know how to handle this constant type: " (error "Don't know how to handle this constant type: "