[Larceny-users] Small FFI Bug

[Ray Racine]

Found a small bug when trying to do a %peek16u in lib/Base/std-ffi.sch
It was only returning the first byte.  Fix is a 1-liner.

Index: std-ffi.sch
===================================================================
--- std-ffi.sch (revision 4144)
+++ std-ffi.sch (working copy)
@@ -508,7 +508,7 @@
 (define (%peek16u addr)
   (let ((x (make-bytevector 2)))
     (peek-bytes addr x 2)
-    (bytevector-ref x 0)))
+    (%get16u x 0)))
 

Like seeing the steady pace in Larceny.  Keep up the good work.