wl

commit 0a164a8584c1b329e12f4cfb540401bfd0521800
parent ebe76c37abbe1494633e667f2895d0537e51b99f
Author: tomas <tomas@logand.com>
Date:   Sat, 31 Oct 2009 01:31:39 +0100

jvector added

Diffstat:
M
java.wl
 | 
6
++++++

1 file changed, 6 insertions(+), 0 deletions(-)
diff --git a/java.wl b/java.wl
@@ -473,3 +473,9 @@
 (de sys (K . @) (`(jclass 'java.lang.System) 'getenv K))
 
 #(de exec () (`((jclass 'java.lang.Runtime) 'getRuntime) 'gc))
+
+(de jvector @
+   (let X (jnew (jclass 'java.util.Vector))
+      (while (args)
+         (X 'add (next)) )
+      X ) )