suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix glib-log test

Browse Source
This commit is contained in:
Matthew Flatt 2020-02-21 08:11:27 -07:00
parent dad9995f56
commit bfce3ba665
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
pkgs/racket-test/tests/racket/glib-log.rkt
View File

@ -54,7 +54,8 @@
(define (make s) (define (make s)
(define p (malloc (add1 (bytes-length s)) 'raw)) (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) p)
(define hello (make #"hello")) (define hello (make #"hello"))