home *** CD-ROM | disk | FTP | other *** search
/ vim.ftp.fu-berlin.de / 2015-02-03.vim.ftp.fu-berlin.de.tar / vim.ftp.fu-berlin.de / patches / 7.3 / 7.3.798 < prev    next >
Encoding:
Internet Message Format  |  2013-01-30  |  3.1 KB
  1. To: vim_dev@googlegroups.com
  2. Subject: Patch 7.3.798
  3. Fcc: outbox
  4. From: Bram Moolenaar <Bram@moolenaar.net>
  5. Mime-Version: 1.0
  6. Content-Type: text/plain; charset=UTF-8
  7. Content-Transfer-Encoding: 8bit
  8. ------------
  9.  
  10. Patch 7.3.798 (after 7.3.791)
  11. Problem:    MzScheme: circular list does not work correctly.
  12. Solution:   Separate Mac-specific code from generic code. (Sergey Khorev)
  13. Files:        src/if_mzsch.c, src/testdir/test70.in
  14.  
  15.  
  16. *** ../vim-7.3.797/src/if_mzsch.c    2013-01-30 17:41:43.000000000 +0100
  17. --- src/if_mzsch.c    2013-01-31 21:00:02.000000000 +0100
  18. ***************
  19. *** 965,970 ****
  20. --- 965,971 ----
  21.   #ifdef MZSCHEME_COLLECTS
  22.       /* setup 'current-library-collection-paths' parameter */
  23.   # if MZSCHEME_VERSION_MAJOR >= 299
  24. + #  ifdef MACOS
  25.       {
  26.       Scheme_Object    *coll_byte_string = NULL;
  27.       Scheme_Object    *coll_char_string = NULL;
  28. ***************
  29. *** 985,990 ****
  30. --- 986,1021 ----
  31.       MZ_GC_CHECK();
  32.       MZ_GC_UNREG();
  33.       }
  34. + #  else
  35. +    {
  36. +     Scheme_Object    *coll_byte_string = NULL;
  37. +     Scheme_Object    *coll_char_string = NULL;
  38. +     Scheme_Object    *coll_path = NULL;
  39. +     Scheme_Object    *coll_pair = NULL;
  40. +     Scheme_Config    *config = NULL;
  41. + 
  42. +     MZ_GC_DECL_REG(5);
  43. +     MZ_GC_VAR_IN_REG(0, coll_byte_string);
  44. +     MZ_GC_VAR_IN_REG(1, coll_char_string);
  45. +     MZ_GC_VAR_IN_REG(2, coll_path);
  46. +     MZ_GC_VAR_IN_REG(3, coll_pair);
  47. +     MZ_GC_VAR_IN_REG(4, config);
  48. +     MZ_GC_REG();
  49. +     coll_byte_string = scheme_make_byte_string(MZSCHEME_COLLECTS);
  50. +     MZ_GC_CHECK();
  51. +     coll_char_string = scheme_byte_string_to_char_string(coll_byte_string);
  52. +     MZ_GC_CHECK();
  53. +     coll_path = scheme_char_string_to_path(coll_char_string);
  54. +     MZ_GC_CHECK();
  55. +     coll_pair = scheme_make_pair(coll_path, scheme_null);
  56. +     MZ_GC_CHECK();
  57. +     config = scheme_current_config();
  58. +     MZ_GC_CHECK();
  59. +     scheme_set_param(config, MZCONFIG_COLLECTION_PATHS, coll_pair);
  60. +     MZ_GC_CHECK();
  61. +     MZ_GC_UNREG();
  62. +     }
  63. + #  endif
  64.   # else
  65.       {
  66.       Scheme_Object    *coll_string = NULL;
  67. *** ../vim-7.3.797/src/testdir/test70.in    2013-01-30 14:55:35.000000000 +0100
  68. --- src/testdir/test70.in    2013-01-31 21:00:06.000000000 +0100
  69. ***************
  70. *** 38,45 ****
  71.   :" circular list (at the same time test lists containing lists)
  72.   :mz (set-car! (cddr l) l)
  73.   :let l2 = mzeval("h")["list"]
  74. ! :" bug: this returns item2, but it should be l2
  75. ! :if l2[2] == "item2"
  76.   :let res = "OK"
  77.   :else
  78.   :let res = "FAILED: " . l2[2]
  79. --- 38,44 ----
  80.   :" circular list (at the same time test lists containing lists)
  81.   :mz (set-car! (cddr l) l)
  82.   :let l2 = mzeval("h")["list"]
  83. ! :if l2[2] == l2
  84.   :let res = "OK"
  85.   :else
  86.   :let res = "FAILED: " . l2[2]
  87. *** ../vim-7.3.797/src/version.c    2013-01-30 21:55:45.000000000 +0100
  88. --- src/version.c    2013-01-31 21:01:48.000000000 +0100
  89. ***************
  90. *** 727,728 ****
  91. --- 727,730 ----
  92.   {   /* Add new patch number below this line */
  93. + /**/
  94. +     798,
  95.   /**/
  96.  
  97. -- 
  98. Be nice to your kids...  they'll be the ones choosing your nursing home.
  99.  
  100.  /// Bram Moolenaar -- Bram@Moolenaar.net -- http://www.Moolenaar.net   \\\
  101. ///        sponsor Vim, vote for features -- http://www.Vim.org/sponsor/ \\\
  102. \\\  an exciting new programming language -- http://www.Zimbu.org        ///
  103.  \\\            help me help AIDS victims -- http://ICCF-Holland.org    ///
  104.