# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1076889836 0
# Node ID 74d57e5bfed44a88cb5345373a62fb76fbea7dd6
# Parent  ba090f1b6dc0f5bd79512afcc10707f1eb5fcc05
(ccl-compile-write): Pass `left' to
ccl-embed-code to generate correct code of write-expr-register.

diff -r ba090f1b6dc0 -r 74d57e5bfed4 lisp/international/ccl.el
--- a/lisp/international/ccl.el	Sun Feb 15 23:34:41 2004 +0000
+++ b/lisp/international/ccl.el	Mon Feb 16 00:03:56 2004 +0000
@@ -774,7 +774,8 @@
 	       (ccl-check-register right rrr)
 	       (ccl-embed-code 'write-expr-register 0
 			       (logior (ash op 3)
-				       (get right 'ccl-register-number))))))
+				       (get right 'ccl-register-number))
+			       left))))
 
 	  (t
 	   (error "CCL: Invalid argument: %s" cmd))))