expand let marshal's parameters

[m6w6/ext-psi] / m4 / psi_const.m4

diff --git a/m4/psi_const.m4 b/m4/psi_const.m4
index 8ea5c1f4491510e6e430fa3beea4795900a0acfc..6c3cf6b28be665eaf28828e22461700a590d8fc0 100644 (file)
--- a/m4/psi_const.m4
+++ b/m4/psi_const.m4
@@ -3,8 +3,8 @@
 psi_add_str_const() {
        grep -q "\"psi\\\\\\\\$1\"" $PSI_CONSTS \
                || cat >>$PSI_CONSTS <<EOF
-       {PSI_T_STRING, "string", "psi\\$1", $2, PSI_T_QUOTED_STRING},
-EOF 
+       {PSI_T_STRING, "string", "psi\\\\$1", $2, PSI_T_QUOTED_STRING},
+EOF
 }
 
 # psi_add_int_const(name, value)
@@ -12,7 +12,7 @@ EOF
 psi_add_int_const() {
        grep -q "\"psi\\\\\\\\$1\"" $PSI_CONSTS \
                || cat >>$PSI_CONSTS <<EOF
-       {PSI_T_INT, "int", "psi\\$1", "$2", PSI_T_NUMBER}, 
+       {PSI_T_INT, "int", "psi\\\\$1", "$2", PSI_T_NUMBER}, 
 EOF
 }