Function: smie-debug--describe-cycle

smie-debug--describe-cycle is a byte-compiled function defined in smie.el.gz.

Signature

(smie-debug--describe-cycle TABLE CYCLE)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/smie.el.gz
(defun smie-debug--describe-cycle (table cycle)
  (let ((names
         (mapcar (lambda (val)
                   (let ((res nil))
                     (dolist (elem table)
                       (if (eq (cdr elem) val)
                           (push (concat "." (car elem)) res))
                       (if (eq (cddr elem) val)
                           (push (concat (car elem) ".") res)))
                     (cl-assert res)
                     res))
                 cycle)))
    (mapconcat
     (lambda (elems) (mapconcat #'identity elems "="))
     (append names (list (car names)))
     " < ")))