;;; -*- Mode:LISP; Package:PICON; Readtable:ZL; Base:10 -*-


;;; grammar for pascal taken from "Pascal User Manual and Report"
;;; Jensen & Wirth Springer-Verlag.
;;; The BNF from Appendix D.

(let (current-grammar)
  (set-current-grammar "pascal")
  (absorb-rewrite-rules '((program-heading 'program identifier 'open-paren