fix glib-log test

2020-02-21 08:11:27 -07:00 · 2020-02-21 08:11:27 -07:00 · bfce3ba665
commit bfce3ba665
parent dad9995f56
1 changed files with 2 additions and 1 deletions
--- a/pkgs/racket-test/tests/racket/glib-log.rkt
+++ b/pkgs/racket-test/tests/racket/glib-log.rkt
@ -54,7 +54,8 @@
  
  (define (make s)
    (define p (malloc (add1 (bytes-length s)) 'raw))
-    (memcpy p s (add1 (bytes-length s)))
+    (memcpy p s (bytes-length s))
+    (ptr-set! p _byte (bytes-length s) 0)
    p)
  
  (define hello (make #"hello"))