diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-01-09 06:51:04 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-01-09 06:51:04 -0800 |
| commit | 5c18ee920a30dac79a126eaaea357344971caa76 (patch) | |
| tree | 287b1dd654cf5063e0ba227401becea486cac367 /share | |
| parent | 1fb852f2bca2e70bde656ed28654a1f75b40f068 (diff) | |
| download | txr-5c18ee920a30dac79a126eaaea357344971caa76.tar.gz txr-5c18ee920a30dac79a126eaaea357344971caa76.tar.bz2 txr-5c18ee920a30dac79a126eaaea357344971caa76.zip | |
asm/compiler: fix incorrect frame-related constant.
* share/txr/stdlib/vm-param.tl (%max-lev-idx%): The maximum
index within a level is one less than the maximum level
size, not two less. Use pred rather than ppred to derive it.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/vm-param.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/vm-param.tl b/share/txr/stdlib/vm-param.tl index 3ce993c4..b845f2cf 100644 --- a/share/txr/stdlib/vm-param.tl +++ b/share/txr/stdlib/vm-param.tl @@ -25,7 +25,7 @@ ;; OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. (defsymacro %lev-size% 1024) -(defsymacro %max-lev-idx% (macro-time (ppred %lev-size%))) +(defsymacro %max-lev-idx% (macro-time (pred %lev-size%))) (defsymacro %lev-bits% 10) (defsymacro %max-lev% 63) (defsymacro %max-v-lev% (macro-time (ppred %max-lev%))) |