summaryrefslogtreecommitdiff
path: root/src/if_mzsch.c
diff options
context:
space:
mode:
authorBram Moolenaar <Bram@vim.org>2013-01-31 21:09:15 +0100
committerBram Moolenaar <Bram@vim.org>2013-01-31 21:09:15 +0100
commit39d7d51bcdc0edd8eb3034a9d094511b7b75e9e1 (patch)
treeea28b242b0b6ccf74555e91d2b5f8c755ee2e3b5 /src/if_mzsch.c
parent04e5b5a22823fdf30e35c383aea8843f7c747eec (diff)
downloadvim-git-39d7d51bcdc0edd8eb3034a9d094511b7b75e9e1.tar.gz
updated for version 7.3.798v7.3.798
Problem: MzScheme: circular list does not work correctly. Solution: Separate Mac-specific code from generic code. (Sergey Khorev)
Diffstat (limited to 'src/if_mzsch.c')
-rw-r--r--src/if_mzsch.c31
1 files changed, 31 insertions, 0 deletions
diff --git a/src/if_mzsch.c b/src/if_mzsch.c
index f9bcd5d91..238446409 100644
--- a/src/if_mzsch.c
+++ b/src/if_mzsch.c
@@ -965,6 +965,7 @@ startup_mzscheme(void)
#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 @@ startup_mzscheme(void)
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;