From af76810e6093f7ce53309ab52e8404940efa112c Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 11 Jun 2004 05:58:29 +0000 Subject: [PATCH] (ccl-dump-call): Fix printing the subroutine name. --- lisp/international/ccl.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el index e9e46bb0c6c..e55f1fbcf36 100644 --- a/lisp/international/ccl.el +++ b/lisp/international/ccl.el @@ -1120,7 +1120,8 @@ (insert (format "write r%d (%d remaining)\n" rrr cc))) (defun ccl-dump-call (ignore cc) - (insert (format "call subroutine #%d\n" cc))) + (let ((subroutine (car (ccl-get-next-code)))) + (insert (format "call subroutine `%s'\n" subroutine)))) (defun ccl-dump-write-const-string (rrr cc) (if (= rrr 0) -- 2.39.2