(ccl-compile-write): Pass `left' to

ccl-embed-code to generate correct code of write-expr-register.
This commit is contained in:
Kenichi Handa 2004-02-16 00:03:56 +00:00
parent dbbd9604a4
commit c6a7104c1b

View file

@ -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))))