diff options
| -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%)) |