Re: srfi-1 map implementation

[Marius Vollmer]

Martin Grabmueller <address@hidden> writes:

> > I'd say that for the specific case, the best thing is to get the real
> > primitive function (via 'module-ref' for example) and compare it with
> > 'eq?' to the one you are worried about.
> > 
> > Like
> > 
> >     (define primitive-map (module-ref (resolve-module '(guile)) 'map))
> > 
> >     (if (eq? map primitive-map)
> >         ...)
> 
> This would not work if the `map' in module (guile) was `set!' to a
> different value, would it?

Depends on the definition of "work"... If you want to test whether
your 'map' is the same as the 'map in the (guile) module, it would
work, if you would want to test whether your 'map' is a primitive
procedure, it wouldn't.  I think Thien-Thi wants the former, right?