Function: ccl-compile-call

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

Signature

(ccl-compile-call CMD)

Documentation

Compile CALL statement.

Source Code

;; Defined in /usr/src/emacs/lisp/international/ccl.el.gz
(defun ccl-compile-call (cmd)
  "Compile CALL statement."
  (if (/= (length cmd) 2)
      (error "CCL: Invalid number of arguments: %s" cmd))
  (if (not (symbolp (nth 1 cmd)))
      (error "CCL: Subroutine should be a symbol: %s" cmd))
  (ccl-embed-code 'call 1 0)
  (ccl-embed-symbol (nth 1 cmd) 'ccl-program-idx)
  nil)