This is the mail archive of the
kawa@sourceware.org
mailing list for the Kawa project.
Re: Mixed java and kawa support on Android with gradle
- From: Per Bothner <per at bothner dot com>
- To: Marius Kjeldahl <marius dot kjeldahl at gmail dot com>, "kawa at sourceware dot org" <kawa at sourceware dot org>
- Date: Fri, 28 Feb 2014 10:55:59 -0800
- Subject: Re: Mixed java and kawa support on Android with gradle
- Authentication-results: sourceware.org; auth=none
- References: <CAHdMyCJ0CWmafUPwYmw=piqp1T+rwgnffLG7M-qiLtj_R0kZiQ at mail dot gmail dot com> <5310D470 dot 3070009 at bothner dot com> <CAHdMyC+L9isGjEAAzNM5oRH2VYxGkESPK1gTO6KjOoBUqc76qA at mail dot gmail dot com>
As a work-around, try the attached patch, until I decide on a fix.
--
--Per Bothner
per@bothner.com http://per.bothner.com/
Index: gnu/kawa/slib/ralists.scm
===================================================================
--- gnu/kawa/slib/ralists.scm (revision 7834)
+++ gnu/kawa/slib/ralists.scm (working copy)
@@ -65,7 +65,7 @@
(rename ra-reverse reverse)
(rename ra-list-tail list-tail)
(rename ra-list-ref list-ref)
- (rename ra-list-set list-set)
+ ;(rename ra-list-set list-set)
(rename ra-list-ref/update list-ref/update)
(rename ra-map map)
(rename ra-for-each for-each)
@@ -332,9 +332,11 @@
(make-kons s (kons-tree xs) (recr (kons-rest xs) (- j s)))))))
|#
+#|
;; [RaListof X] Nat X -> (values X [RaListof X])
(define (ra-list-ref/set ls i v)
(ra-list-ref/update ls i (lambda (_) v)))
+|#
;; X ... -> [RaListof X]
(define (ra-list #!rest xs::java.lang.Object[])
@@ -462,9 +464,11 @@
(loop (kons-rest xs) (- j (kons-size xs))))))
|#
+#|
;; [RaListof X] Nat X -> [RaListof X]
(define (ra-list-set ls i v)
(let-values (((_ l*) (ra-list-ref/set ls i v))) l*))
+|#
;; [X ... -> y] [RaListof X] ... -> [RaListof Y]
;; Takes advantage of the fact that map produces a list of equal size.