Function: ccl-compile-break

ccl-compile-break is a byte-compiled function defined in ccl.el.gz.

Signature

(ccl-compile-break CMD)

Documentation

Compile BREAK statement.

Source Code

;; Defined in /usr/src/emacs/lisp/international/ccl.el.gz
(defun ccl-compile-break (cmd)
  "Compile BREAK statement."
  (if (/= (length cmd) 1)
      (error "CCL: Invalid number of arguments: %s" cmd))
  (if (null ccl-loop-head)
      (error "CCL: No outer loop: %s" cmd))
  (setq ccl-breaks (cons ccl-current-ic ccl-breaks))
  (ccl-embed-code 'jump 0 0)
  t)