improve the rev example

floats
Ondřej Hruška 4 years ago
parent acc36b1959
commit f2073fe7f4
Signed by untrusted user: MightyPork
GPG Key ID: 2C5FD5035250423D
  1. 3
      examples/stdio_rev.csn

@ -1,6 +1,7 @@
( (
(mkbf r7) (mkbf r7)
(:r)(ld r0 @cin) (:r)(ld r0 @cin (eof? (j :q)))
(ld @cout r0)
(cmp r0 '\n' (eq? (j :q))) (cmp r0 '\n' (eq? (j :q)))
(bfpush @r7 r0) (bfpush @r7 r0)
(j :r) (j :r)

Loading…
Cancel
Save