[Wisp-cvs] wisp/tests srfi-1.wisp,1.15,1.16

[<di...@us...>]

Update of /cvsroot/wisp/wisp/tests
In directory usw-pr-cvs1:/tmp/cvs-serv4780/tests

Modified Files:
	srfi-1.wisp 
Log Message:
Dropped |vector-ref|.

Index: srfi-1.wisp
===================================================================
RCS file: /cvsroot/wisp/wisp/tests/srfi-1.wisp,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- srfi-1.wisp	4 Sep 2002 14:31:42 -0000	1.15
+++ srfi-1.wisp	7 Sep 2002 21:55:58 -0000	1.16
@@ -122,7 +122,7 @@
 
     (for-each-1 (my v (make-vector 5)
                   (for-each (lambda (i)
-                              (set! (vector-ref v i) (* i i)))
+                              (set! v[i] (* i i)))
                             '(0 1 2 3 4))
                   v)                                    ==> #(0 1 4 9 16))