~ chicken-core (chicken-5) 1366bb0f532312311bdd97a3495b212743ceca74

commit 1366bb0f532312311bdd97a3495b212743ceca74
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Tue Apr 16 23:31:02 2013 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Apr 16 23:35:04 2013 +0200

    Also remove bogus assert. It's a test, if it crashes it crashes, the
    assert will always be true. Flow analysis and J Altfas found this
    independently.
    
    Signed-off-by: Christian Kellermann <address@hidden>
    Signed-off-by: felix <felix@call-with-current-continuation.org>

diff --git a/tests/posix-tests.scm b/tests/posix-tests.scm
index 1f934d9b..e869f2c1 100644
--- a/tests/posix-tests.scm
+++ b/tests/posix-tests.scm
@@ -37,9 +37,8 @@
         (data "abcde")
         (size 5))
     (file-write tmpfilno data)
-    (let ((mmap (map-file-to-memory #f size prot/read map/file tmpfilno))
+    (let ((mmap (map-file-to-memory #f size prot/read (+ map/shared map/file) tmpfilno))
           (str (make-string size)))
-      (assert (memory-mapped-file? mmap))
       (move-memory! (memory-mapped-file-pointer mmap) str size)
       (assert (blob=? (string->blob data) (string->blob str)))
       (unmap-file-from-memory mmap))))