[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: srfi-101 reference implementation missing ra:for-each

On 10/17/13 3:50 PM, Per Bothner wrote:

The reference implementation srfi-101.sls is missing ra:for-each,
even though it is exported.  Was it only tested on implementations
that don't catch missing definitions?

Also, ra:list-update is defined but not used or exported.

Here is an implementation or ra:for-each that seems to work
in Kawa (not uses case-lambda):

   (define (ra-for-each f . lss)
     (cond ((and (pair? lss) (null? (cdr lss)))
            (let ((ls (car lss)))
              (let recr ((ls ls))
                (if (kons? ls)
                    (begin (tree-for-each f (kons-tree ls))
                           (recr (kons-rest ls)))))))
           (else
            ;;(check-nary-loop-args 'ra-map (lambda (x) x) f lss)
            (let recr ((lss lss))
              (if (not (ra-null? (car lss)))
                  ;; IMPROVE ME: make one pass over lss.
                  (begin
                    (tree-for-each/n f (map kons-tree lss))
                    (recr (map kons-rest lss))))))))



I see for-each in the reference implementation and test suite.

You're right about list-update, though.  That's a bug.

David