Bram,
Test 70 fails. I worked around it for now by changing:
>>
>> :if l2[2] == l2
>>
>> to
>>
>> :if l2[2] == "item2"
>>
>
This was caused by a part of patch from Eric Dobson. I restricted the scope
of this change to Mac only and test 70 has passed on Linux and Windows.
Please find the patch attached.
--
--
You received this message from the "vim_dev" maillist.
Do not top-post! Type your reply below the text you are replying to.
For more information, visit http://www.vim.org/maillist.php
---
You received this message because you are subscribed to the Google Groups
"vim_dev" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/groups/opt_out.
diff -r 5e2bb6d02981 src/if_mzsch.c
--- a/src/if_mzsch.c Wed Jan 30 21:56:21 2013 +0100
+++ b/src/if_mzsch.c Thu Jan 31 14:45:24 2013 +0400
@@ -965,6 +965,7 @@
#ifdef MZSCHEME_COLLECTS
/* setup 'current-library-collection-paths' parameter */
# if MZSCHEME_VERSION_MAJOR >= 299
+# ifdef MACOS
{
Scheme_Object *coll_byte_string = NULL;
Scheme_Object *coll_char_string = NULL;
@@ -985,6 +986,36 @@
MZ_GC_CHECK();
MZ_GC_UNREG();
}
+# else
+ {
+ Scheme_Object *coll_byte_string = NULL;
+ Scheme_Object *coll_char_string = NULL;
+ Scheme_Object *coll_path = NULL;
+ Scheme_Object *coll_pair = NULL;
+ Scheme_Config *config = NULL;
+
+ MZ_GC_DECL_REG(5);
+ MZ_GC_VAR_IN_REG(0, coll_byte_string);
+ MZ_GC_VAR_IN_REG(1, coll_char_string);
+ MZ_GC_VAR_IN_REG(2, coll_path);
+ MZ_GC_VAR_IN_REG(3, coll_pair);
+ MZ_GC_VAR_IN_REG(4, config);
+ MZ_GC_REG();
+ coll_byte_string = scheme_make_byte_string(MZSCHEME_COLLECTS);
+ MZ_GC_CHECK();
+ coll_char_string = scheme_byte_string_to_char_string(coll_byte_string);
+ MZ_GC_CHECK();
+ coll_path = scheme_char_string_to_path(coll_char_string);
+ MZ_GC_CHECK();
+ coll_pair = scheme_make_pair(coll_path, scheme_null);
+ MZ_GC_CHECK();
+ config = scheme_current_config();
+ MZ_GC_CHECK();
+ scheme_set_param(config, MZCONFIG_COLLECTION_PATHS, coll_pair);
+ MZ_GC_CHECK();
+ MZ_GC_UNREG();
+ }
+# endif
# else
{
Scheme_Object *coll_string = NULL;
diff -r 5e2bb6d02981 src/testdir/test70.in
--- a/src/testdir/test70.in Wed Jan 30 21:56:21 2013 +0100
+++ b/src/testdir/test70.in Thu Jan 31 14:45:24 2013 +0400
@@ -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]
