test/tail-calls.voo

   1 #### Test tail calls
   2
   3 section data
   4
   5 section functions
   6 import puts
   7 export main
   8
   9 tailtest:
  10 function n
  11     ifne 0 n
  12         set n sub n 1
  13         tail-call tailtest n
  14     else
  15         return 0
  16     end if
  17 end function
  18
  19 main:
  20 function argc argv
  21     call tailtest 1000000000
  22     return 0
  23 end function