c h i c k e n : w i k i

This Web

Other Webs

Chicken

RSS

Offsite Links

An example of how to cons inside a callback function:

(define-external (build_list (int n) (scheme-object lst)) scheme-object (cons n lst) )

#>! __callback __scheme_value my_iota(int n) { int i; __scheme_value lst = C_SCHEME_END_OF_LIST;

for(i = n - 1; i >= 0; --i) lst = build_list(i, lst);

return lst; } <#

(print (my_iota 10))

-- BunnyBunny - 22 Jun 2004