From bfce3ba6657d4edb633743f26e578d0ab6a62268 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 21 Feb 2020 08:11:27 -0700 Subject: [PATCH] fix glib-log test --- pkgs/racket-test/tests/racket/glib-log.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/pkgs/racket-test/tests/racket/glib-log.rkt b/pkgs/racket-test/tests/racket/glib-log.rkt index 18232b65f5..3c9523d6ba 100644 --- 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"))