[Chicken-users] let-location in trunk

[F. Wittenberger]

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                      <--