for me, version.c was not updated when I pulled this update -- I didn't expect much since I don't build for mzscheme, but at least version should have updated
sc >________________________________ > From: Bram Moolenaar <[email protected]> >To: [email protected] >Sent: Thursday, January 31, 2013 2:09 PM >Subject: Patch 7.3.798 > > >Patch 7.3.798 (after 7.3.791) >Problem: MzScheme: circular list does not work correctly. >Solution: Separate Mac-specific code from generic code. (Sergey Khorev) >Files: src/if_mzsch.c, src/testdir/test70.in > > >*** ../vim-7.3.797/src/if_mzsch.c 2013-01-30 17:41:43.000000000 +0100 >--- src/if_mzsch.c 2013-01-31 21:00:02.000000000 +0100 >*************** >*** 965,970 **** >--- 965,971 ---- > #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,990 **** >--- 986,1021 ---- > 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; >*** ../vim-7.3.797/src/testdir/test70.in 2013-01-30 14:55:35.000000000 +0100 >--- src/testdir/test70.in 2013-01-31 21:00:06.000000000 +0100 >*************** >*** 38,45 **** > :" 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" > :let res = "OK" > :else > :let res = "FAILED: " . l2[2] >--- 38,44 ---- > :" circular list (at the same time test lists containing lists) > :mz (set-car! (cddr l) l) > :let l2 = mzeval("h")["list"] >! :if l2[2] == l2 > :let res = "OK" > :else > :let res = "FAILED: " . l2[2] >*** ../vim-7.3.797/src/version.c 2013-01-30 21:55:45.000000000 +0100 >--- src/version.c 2013-01-31 21:01:48.000000000 +0100 >*************** >*** 727,728 **** >--- 727,730 ---- > { /* Add new patch number below this line */ >+ /**/ >+ 798, > /**/ > >-- >Be nice to your kids... they'll be the ones choosing your nursing home. > >/// Bram Moolenaar -- [email protected] -- http://www.Moolenaar.net \\\ >/// sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\ >\\\ an exciting new programming language -- http://www.Zimbu.org /// >\\\ help me help AIDS victims -- http://ICCF-Holland.org /// > >-- >-- >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. > > > > > -- -- 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.
