(ccl-compile-write): Pass `left' to
ccl-embed-code to generate correct code of write-expr-register.
This commit is contained in:
parent
dbbd9604a4
commit
c6a7104c1b
1 changed files with 2 additions and 1 deletions
|
@ -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))))
|
||||
|
|
Loading…
Add table
Reference in a new issue