Hi,
I'm afraid let-location is not working in trunk:
cat << EOF > t-location.scm
(print "Testing let-location\n")
(define test-location
(let-location
((again bool #f))
(lambda ()
((foreign-lambda*
int
(((c-pointer bool) again))
"*again=1; return(1);")
(location again))
again)))
(print "calling it\n")
(print (test-location))
EOF
$ csc t-location.scm
$ ./t-location
Testing let-location
Error: unbound variable: g10
Call history:
t-location.scm: 1 print <--
_______________________________________________
Chicken-users mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/chicken-users
