some fixes to unbind_n

This commit is contained in:
Andrea Corallo 2019-08-11 09:34:30 +02:00 committed by Andrea Corallo
parent e65d2f364c
commit 9901f47ef7
2 changed files with 8 additions and 10 deletions

View file

@ -500,9 +500,8 @@ the annotation emission."
(comp-stack-adjust (- arg))
(comp-emit-set-call `(callref Ffuncall ,(1+ arg) ,(comp-sp))))
(byte-unbind
(comp-emit `(call unbind_to
,(make-comp-mvar :constant arg)
,(make-comp-mvar :constant nil))))
(comp-emit `(call helper_unbind_n
,(make-comp-mvar :constant arg))))
(byte-pophandler
(comp-emit '(pop-handler)))
(byte-pushconditioncase