l2/stdlib/debug.sl

import stdlib.sl
import io.sl

#dump [* | n] -> [*]

# dump takes the firts element from the stack
# and prints that much consequent elements
# from the stack while not modifying it

word dump
	1 swap
	for
		dup pick
		puti cr
		1 +
	end
	drop
end

# same but for return stack
word rdump
	1 swap
	for
		dup rpick
		puti cr
		1 +
	end
	drop
end

#int3 [*] -> [*]
:asm int3 {
	int3
}
;