diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2021-02-10 14:54:46 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2021-02-10 14:54:46 -0800 |
commit | 7a957692314786f988cf126fcc86aad2708d8ba7 (patch) | |
tree | 3371c97c6a176d9817b9e89a938964e5f3016a59 /genvmop.txr | |
parent | 0d7d19d4761f1385a24e65082b10a46288e87f5a (diff) | |
download | txr-7a957692314786f988cf126fcc86aad2708d8ba7.tar.gz txr-7a957692314786f988cf126fcc86aad2708d8ba7.tar.bz2 txr-7a957692314786f988cf126fcc86aad2708d8ba7.zip |
compiler: bug: trivial unwind-protect return value
Bad test case:
(unwind-protect 42 1 2 3) -> 3 ;; should be 42
* share/txr/stdlib/compiler.tl (compile comp-unwind-protect):
In the case when the protected code compiles to zero code,
because it is a simple variable or constant, the code that
we return must still nominate the that fragment's output
register as its output, and not the output register of the
cleanup forms.
Diffstat (limited to 'genvmop.txr')
0 files changed, 0 insertions, 0 deletions