[Chicken-users] error message question

[Peter Keller]

Hello,

I'm working on the next version of the GNU MP interface when I came across
this error:

Linux black > ./de
Error: unbound variable
mp_exp_t_p

Now, I don't get a stacktrace or anything and I have no idea where this error
is happening. Can some context be put around this message in future versions
of chicken, something like:

Error: In function "frobnicate"
Error: unbound variable 'mp_exp_t_p'

Also, the funny thing is, I don't have any variables called that!

Here are the references to that symbol name:

;; declare it
(define-foreign-type mp_exp_t_p
    (pointer "long"))
(define-foreign-type mp_exp_t long)

;; make an mp_exp_t (specifically a pointer to one)
(define make-mp_exp_t_p
    (let (  (alloc (foreign-lambda* mp_exp_t_p ()
                        "return (malloc(sizeof(mp_exp_t)));"))
            (dealloc (foreign-lambda void "free" c-pointer)))
        (lambda ()
            (let ((m (alloc)))
                (set-finalizer! m dealloc)
                m))))

;; dereference an mp_exp_t_p type into an mp_exp_t
(define mp_exp_t_p->mp_exp_t
    (define-foreign-lambda* mp_exp_t ((mp_exp_t_p val))
            "return((mp_exp_t)*val)"))

;; now use it
(let ((exp_p (make-mp_exp_t)))
        (expect_equal (mp_exp_t_p->mp_exp_t exp_p) "1" "mpf_get_str"))

What is wrong?

Thanks.

-pete