Re: srfi-1 map implementation

[Neil Jerram]

>>>>> "Thien-Thi" == Thien-Thi Nguyen <address@hidden> writes:

    Thien-Thi>    From: Neil Jerram <address@hidden>
    Thien-Thi>    Date: 21 Jan 2002 19:45:31 +0000

    Thien-Thi>    What are you aiming to test by this use of procedure-source?

    Thien-Thi> i'd like to test "primitive-definition?", i.e., whether or not 
the
    Thien-Thi> definition is provided by libguile.

Well, with the code as it is now, you could use

  (define (primitive? proc)
    (null? (procedure-environment proc)))

or

  (define (primitive? proc)
    (string-match "primitive"
      (with-output-to-string
        (lambda ()
          (write proc)))))

Except that the procedure-environment one doesn't seem to be
reliable...

(primitive? nested-ref) => ()

Does everything defined in (guile) have procedure-environment => () ?

        Neil