Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
floating point exception in retro.c
michal@proton:~/vrx$ ./retro --with recurse.rx
Retro 11.5
ok ( ---------------------------------- )
ok ( runtime library )
ok ( ---------------------------------- )
ok : odd? mod 2 1 = ;
ok ( ---------------------------------- )
ok ( generated code )
ok ( ---------------------------------- )
ok 4
ok variable: digits
ok variables| number cursor |
ok variables| bit |
ok : helper 0 bit ! number @ odd? [ 1 bit ! ] ifTrue number @ 2 / number ! cursor @ 0 > [ curs
or @ 1 - cursor ! helper ] ifTrue bit @ putn cr ;
ok : binary digits @ cursor ! helper ;
ok digits
ok @
ok cursor
ok !
ok 5
ok number
ok !
Floating point exception
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.