Improve comment.

[pspp] / src / language / lexer / q2c.c

diff --git a/src/language/lexer/q2c.c b/src/language/lexer/q2c.c
index 73788706748d3dbd91baf563578d4f62409e3b3c..46255e34aa391b904c1d644ad268425e20e619ad 100644 (file)
--- a/src/language/lexer/q2c.c
+++ b/src/language/lexer/q2c.c
@@ -28,6 +28,7 @@
 #if HAVE_UNISTD_H
 #include <unistd.h>
 #endif
+#include "compiler.h"
 #include "str.h"
 
 
@@ -1941,7 +1942,7 @@ dump_free (int persistent)
          switch (sbc->type) 
            {
             case SBC_VARLIST:
-             dump (0, "free (p->v_variables);");
+             dump (0, "free (p->v_%s);", st_lower (sbc->name));
               break;
            case SBC_STRING:
              dump (0, "free (p->s_%s);", st_lower (sbc->name));