From 5f13c908566bcbff86df027571bb4b96efc2f427 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 9 Jan 2019 06:52:23 -0800 Subject: 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. --- share/txr/stdlib/asm.tl | 4 ++-- 1 file 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%)) -- cgit v1.2.3