[svn:parrot] r29583 - trunk/compilers/imcc

[jonathan]

Author: jonathan
Date: Fri Jul 18 06:48:45 2008
New Revision: 29583

Modified:
   trunk/compilers/imcc/imcc.y

Log:
[core] Fix to my previous fix to imcc.y, again spotted by NordQ++.

Modified: trunk/compilers/imcc/imcc.y
==============================================================================
--- trunk/compilers/imcc/imcc.y (original)
+++ trunk/compilers/imcc/imcc.y Fri Jul 18 06:48:45 2008
@@ -1004,7 +1004,7 @@
      SUB_LEXID '(' STRINGC ')'
          {
            $$ = 0;
-           IMCC_INFO(interp)->cur_unit->lexid = mk_const(interp, $3);
+           IMCC_INFO(interp)->cur_unit->lexid = mk_const(interp, $3, 'S');
            mem_sys_free($3);
          }
    ;