updated for version 7.3.798
Problem: MzScheme: circular list does not work correctly.
Solution: Separate Mac-specific code from generic code. (Sergey Khorev)
diff --git a/src/testdir/test70.in b/src/testdir/test70.in
index 24c0c12..9fbe818 100644
--- a/src/testdir/test70.in
+++ b/src/testdir/test70.in
@@ -38,8 +38,7 @@
:" circular list (at the same time test lists containing lists)
:mz (set-car! (cddr l) l)
:let l2 = mzeval("h")["list"]
-:" bug: this returns item2, but it should be l2
-:if l2[2] == "item2"
+:if l2[2] == l2
:let res = "OK"
:else
:let res = "FAILED: " . l2[2]