[Chicken-users] bind-let* evaluates argument three times

[Alan Post]

The following program:

  (use list-bindings)
  (bind-let* (((x) `(,(map write '(0 1 2)))))
    x)

produces the output:

012012012

I would expect the output to be:

012

This is... unfortunate, as the particular iteration I'm performing
is expensive.  One can obviously work-around this problem by moving
expensive/side-effect code out of the bind-let* construct, but it's
troubling all the same.

ju, are you still active in Chicken Scheme?  Care to accept a bug
report? The problem also occurs with bind-let.

-a
-- 
my personal website: http://c0redump.org/