added rdump to debug.sl for dumping the return stack

stdlib/debug.sl

@@ -1,3 +1,6 @@
+import stdlib.sl
+import io.sl
+
 # : dump ( n -- )
 
 # dump takes the firts element from the stack
@@ -14,6 +17,17 @@ word dump
 	drop
 end
 
+# same but for return stack
+word rdump
+	1 swap
+	for
+		dup rpick
+		puti cr
+		1 +
+	end
+	drop
+end
+
 # : int3 ( -- )
 :asm int3 {
 	int3