# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1086933509 0
# Node ID f2f5948989a579fb6c895fe4836a9bf96fd779e6
# Parent  32381d1c4eab1b6bfb7934197ff1bb05d7ce7191
(ccl-dump-call): Fix printing the subroutine name.

diff -r 32381d1c4eab -r f2f5948989a5 lisp/international/ccl.el
--- a/lisp/international/ccl.el	Fri Jun 11 05:56:44 2004 +0000
+++ b/lisp/international/ccl.el	Fri Jun 11 05:58:29 2004 +0000
@@ -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)