From 80e98ecc40883d9f153ef7a06fdda1d659389b8a Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 2 Apr 2018 08:22:58 -0700
Subject: compiler: unwind-protect bug: wrong output reg.

* share/txr/stdlib/compiler.tl (comp-unwind-protect): The
output register of the compiled unwind-protect is that
of the protected forms compiled in pfrag, not of the
compiled code for the cleanup forms in cfrag.
---
 share/txr/stdlib/compiler.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'share')

diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl
index c9d9bd05..986ebb7e 100644
--- a/share/txr/stdlib/compiler.tl
+++ b/share/txr/stdlib/compiler.tl
@@ -471,7 +471,7 @@
       me.(free-treg treg)
       (cond
         ((null pfrag.code)
-         (new (frag pfrag.oreg
+         (new (frag cfrag.oreg
                     cfrag.code
                     cfrag.fvars
                     cfrag.ffuns)))
-- 
cgit v1.2.3