[Bug-kawa] [bug #36853] Propagate type parameters

[Helmut Eller]

Follow-up Comment #2, bug #36853 (project kawa):

>The code doesn't support wildcards yet. Perhaps you could come 
>with some testcases using wildcards?

You mean something like this?

(define (map->alist (m java.util.Map))
  (let* ((entries (m:entrySet))
         (iter (entries:iterator)))
    (let loop ((alist '()))
      (if (iter:hasNext)
          (let ((entry (iter:next)))
            (loop (cons (cons (entry:getKey) (entry:getValue))
                        alist)))
          alist))))

(equal? (map->alist (java.util.Collections:singletonMap 'a 1))
        '((a . 1)))



    _______________________________________________________

Reply to this item at:

  <http://savannah.gnu.org/bugs/?36853>

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