nyacc: more CPP fixes
[mes.git] / module / nyacc / lang / c99 / mach.d / c99act.scm
index 60d461821abdc86586e860b47769734434acfa33..da01c539cbb909bf6480bb94ffc57fae9b7bc195 100644 (file)
    (lambda ($2 $1 . $rest) `(return (expr)))
    ;; translation-unit => external-declaration-list
    (lambda ($1 . $rest) (tl->list $1))
-   ;; external-declaration-list => external-declaration
-   (lambda ($1 . $rest) (make-tl 'trans-unit $1))
+   ;; external-declaration-list => 
+   (lambda $rest (make-tl 'trans-unit))
    ;; external-declaration-list => external-declaration-list external-decla...
    (lambda ($2 $1 . $rest)
      (if (eqv? (sx-tag $2) 'extern-block)