diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-01-09 06:52:23 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-01-09 06:52:23 -0800 |
| commit | 5f13c908566bcbff86df027571bb4b96efc2f427 (patch) | |
| tree | 6029ba614c6b6b056a84bb4310d70166e608b8ed /share | |
| parent | 5c18ee920a30dac79a126eaaea357344971caa76 (diff) | |
| download | txr-5f13c908566bcbff86df027571bb4b96efc2f427.tar.gz txr-5f13c908566bcbff86df027571bb4b96efc2f427.tar.bz2 txr-5f13c908566bcbff86df027571bb4b96efc2f427.zip | |
asm: fix incorrect level check in frame opcode.
* share/txr/stdlib/asm.tl (op-frame): Check the level of the
operand against %max-v-lev%, not %max-lev-idx%, which
gives the maximum index within a level.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/asm.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/share/txr/stdlib/asm.tl b/share/txr/stdlib/asm.tl index 58bd72b2..d07d05d3 100644 --- a/share/txr/stdlib/asm.tl +++ b/share/txr/stdlib/asm.tl @@ -364,9 +364,9 @@ (:method asm (me asm syntax) me.(chk-arg-count 2 syntax) (tree-bind (lev size) asm.(parse-args me syntax '(n n)) - (unless (<= 2 lev %max-lev-idx%) + (unless (<= 2 lev %max-v-lev%) me.(synerr "level must range from 2 to ~a" - %max-lev-idx%)) + %max-v-lev%)) (unless (<= 0 size %lev-size%) me.(synerr "size must range from 0 to ~a" %lev-size%)) |