Fixed off-by-one error in dumpstack subroutine.

[vvhitespace] / stdlib / debug.pvvs

diff --git a/stdlib/debug.pvvs b/stdlib/debug.pvvs
index 4362a53..960c65b 100644 (file)
--- a/stdlib/debug.pvvs
+++ b/stdlib/debug.pvvs
@@ -101,10 +101,10 @@ SSSTSTSN                 | PUSH ASCII '\n'
 TNSS                     | PUTC
 
 @ Figure out if the loop is complete.
 TNSS                     | PUTC
 
 @ Figure out if the loop is complete.

-SNS                      | DUP
-NTSSSTTTSSTSSSSSSSSN     | BRZ > 00111001 00000000

 SSSTN                    | PUSH 1
 TSST                     | SUBTRACT
 SSSTN                    | PUSH 1
 TSST                     | SUBTRACT

+SNS                      | DUP
+NTSSSTTTSSTSSSSSSSSN     | BRZ > 00111001 00000000

 NSNSSTTTSSTSSSSSSSTN     | JMP > 00111001 00000001
 
 @ Clean up and return
 NSNSSTTTSSTSSSSSSSTN     | JMP > 00111001 00000001
 
 @ Clean up and return