improve the rev example

This commit is contained in:
2020-10-10 18:58:35 +02:00
parent acc36b1959
commit f2073fe7f4
+2 -1
View File
@@ -1,6 +1,7 @@
(
(mkbf r7)
(:r)(ld r0 @cin)
(:r)(ld r0 @cin (eof? (j :q)))
(ld @cout r0)
(cmp r0 '\n' (eq? (j :q)))
(bfpush @r7 r0)
(j :r)