Removing spurious ctx argument to sexp_make_character.

This commit is contained in:
Alex Shinn 2012-07-16 22:27:41 +09:00
parent 89dfe9ab35
commit 35226238ed

View file

@ -592,7 +592,7 @@
((eq? base 'char) ((eq? base 'char)
(if (type-array type) (if (type-array type)
(cat "sexp_c_string(ctx, " val ", " (c-array-length type) ")") (cat "sexp_c_string(ctx, " val ", " (c-array-length type) ")")
(cat "sexp_make_character(ctx, " val ")"))) (cat "sexp_make_character(" val ")")))
((eq? 'env-string base) ((eq? 'env-string base)
(cat "(p=strchr(" val ", '=') ? " (cat "(p=strchr(" val ", '=') ? "
"sexp_cons(ctx, str=sexp_c_string(ctx, " val "sexp_cons(ctx, str=sexp_c_string(ctx, " val