Function: peg--translate-rule-body

peg--translate-rule-body is a byte-compiled function defined in peg.el.gz.

Signature

(peg--translate-rule-body NAME EXP)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/peg.el.gz
(defun peg--translate-rule-body (name exp)
  (let ((msg (condition-case err
                 (progn (peg-detect-cycles exp (list name)) nil)
               (error (error-message-string err))))
        (code (peg-translate-exp exp)))
    (cond
     ((null msg) code)
     (t (macroexp-warn-and-return msg code 'peg nil exp)))))