Re: srfi-1 map implementation

[Martin Grabmueller]

> From: Marius Vollmer <address@hidden>
> Date: 24 Jan 2002 22:05:14 +0100
> 
> Thien-Thi Nguyen <address@hidden> writes:
> 
> > i'd like to test "primitive-definition?", i.e., whether or not the
> > definition is provided by libguile.
> 
> 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?

'martin