add note to a broken test

The test doesn't go wrong so often that its crucial to fix now,
but it should be fixd in the near future.
This commit is contained in:
Matthew Flatt 2019-10-08 08:30:05 -06:00
parent 84827d04aa
commit dce39cf24b

View File

@ -278,6 +278,10 @@
((ffi 'hoho (_fun _int (_fun _int -> (_fun _int -> _int)) -> _int))
3 (lambda (x) (lambda (y) (+ y (* x x))))))
;; ---
;; FIXME: this test is broken, because the array allocated by `(_list io _int len)`
;; has no reason to stay in place; a GC during the callback may move it.
;; The solution is probably to extend `_list` so that an allocation mode like
;; 'atomic-interior can be supplied.
(let ([qsort (get-ffi-obj 'qsort #f
(_fun (l : (_list io _int len))
(len : _int = (length l))