Hash : ed679850 Author : Date : 2006-10-30T17:01:46
Download
1 2 3 4 5 6 7 8 9 10 11 12 13 14
\ Third Local-overrun test. Unterminated locals decl'n w/ no separator : coconuts ( m1 m2 -- m3 m4 m5 ) { q _gummo _karl 2dup < if swap then 2dup / -> _gummo 2dup - -> _karl * -> q _karl _gummo q ;