nyacc: exceptions worked on.. still need to fix #
[mes.git] / module / nyacc / lang / c99 / mach.scm
index 669a2d4dd1aa5da67e3bf1c8ec9e909178297cb5..9a3927f5485fa4e850dc4cf3768d824dd9f609c8 100644 (file)
      (declaration)
      (lone-comment)
      (cpp-statement)
+     (pragma)
      ("extern" $string "{" external-declaration-list "}"
       ($$ `(extern-block ,$2 (extern-begin ,$2)
                         ,@(sx-tail (tl->list $4) 1) (extern-end))))
+     (";" ($$ `(decl (@ (not-C99 . "GNU C")))))
      )
     
     (function-definition
      (string-literal $string ($$ (tl-append $1 $2))))
     (code-comment ($code-comm ($$ `(comment ,$1))))
     (lone-comment ($lone-comm ($$ `(comment ,$1))))
-    (cpp-statement ('cpp-stmt ($$ `(cpp-stmt ,$1))))
-
+    (cpp-statement ('cpp-stmt))
+    (pragma ('cpp-pragma))
     )))