Commit 0351fffa 0351fffa71fcdb8e28ec349067f8a1eaf2bdc900 by Sergey Poznyakoff

(_get_address_part): Bugfix. Was passing too short a length to fun().

1 parent f636b941
...@@ -56,7 +56,7 @@ _get_address_part (const char *func_name, address_get_fp fun, ...@@ -56,7 +56,7 @@ _get_address_part (const char *func_name, address_get_fp fun,
56 return SCM_BOOL_F; 56 return SCM_BOOL_F;
57 } 57 }
58 58
59 if ((*fun) (addr, num, str, length, NULL) == 0) 59 if ((*fun) (addr, num, str, length + 1, NULL) == 0)
60 ret = scm_makfrom0str (str); 60 ret = scm_makfrom0str (str);
61 else 61 else
62 ret = SCM_BOOL_F; 62 ret = SCM_BOOL_F;
......