nyacc: fixed more CPP issues
[mes.git] / module / nyacc / lang / c99 / cpp.scm
index bb38fb88510b4ada2e2eab0601d4c3e36b794fef..18c289200a7f1bdf82e9448d2495596a1dc4b4e1 100644 (file)
        ((('ident . rval) ('ident . lval) . rest)
         (iter stl chl (string-append " " rval) (cdr tkl)))
 
-       (((key . val) . rest)
-        (iter stl chl val rest))
-
        (('space . rest)
         (iter stl (cons #\space chl) nxt rest))
 
+       ((('string . val) . rest)
+        (iter stl (cons #\" chl) val (cons #\" rest)))
+
+       (((key . val) . rest)
+        (iter stl chl val rest))
+
        (otherwise
         (error "no match" tkl)))))))