[Bug-kawa] [bug #15579] append-map may destroy arguments.

[Per Bothner]

Update of bug #15579 (project kawa):

                  Status:                    None => Confirmed              
             Assigned to:                    None => bothner                

    _______________________________________________________

Follow-up Comment #3:

Try replacing append-map and append-map! in srfi1.scm with these:

(define (append-map f lis1 . lists)
  (if (pair? lists)
      (apply append (apply map f lis1 lists))
      (apply append (map f lis1))))

(define (append-map! f lis1 . lists)
  (if (pair? lists)
      (apply append! (apply map f lis1 lists))
      (apply append! (map f lis1))))

    _______________________________________________________

Reply to this item at:

  <http://savannah.gnu.org/bugs/?func=detailitem&item_id=15579>

_______________________________________________
  Message sent via/by Savannah
  http://savannah.gnu.org/