fix x86 (32-bit) __collect-safe callable

original commit: 530e6ac49b6ac31c2993517cb15633de73e6c85a
2020-03-17 20:31:37 -06:00 · 2020-03-17 20:31:37 -06:00 · b5bce547d2
commit b5bce547d2
parent 16b9ffb57c
1 changed files with 1 additions and 1 deletions
--- a/s/x86.ss
+++ b/s/x86.ss
@ -2846,7 +2846,7 @@
                       (set! ,%eax ,(%mref ,%sp ,(+ 8 (push-registers-size result-regs result-num-fp-regs 1))))
                       ,(%inline push ,%eax)
                       ,(%inline unactivate-thread)
-                       ,(%inline pop ,%eax))])
+                       (set! ,%eax ,(%inline pop)))])
              (if (and (null? result-regs) (fx= 0 result-num-fp-regs))
                  e
                  (%seq