Skip to content

Instantly share code, notes, and snippets.

@tangentstorm

tangentstorm/gist:4250692

Created December 10, 2012 13:56
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save tangentstorm/4250692 to your computer and use it in GitHub Desktop.
Save tangentstorm/4250692 to your computer and use it in GitHub Desktop.
Download ZIP
floating point exception in retro.c
Raw
gistfile1.txt
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