mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 11:50:28 +02:00
Code Activity

Slightly optimize `gensym'.

Browse source 
* libguile/symbols.c (default_gensym_prefix): New variable.
  (scm_gensym): Use it.  Use `scm_from_latin1_stringn' instead of
  `scm_from_locale_stringn'.
  (scm_init_symbols): Initialize DEFAULT_GENSYM_PREFIX.
This commit is contained in:
Ludovic Courtès 2011-03-06 21:47:48 +01:00
parent d8f1c2162c
commit ceed7709be
1 changed files with 11 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libguile/symbols.c
View file

@ -1,4 +1,5 @@
/* Copyright (C) 1995,1996,1997,1998,2000,2001, 2003, 2004, 2006, 2009 Free Software Foundation, Inc. /* Copyright (C) 1995, 1996, 1997, 1998, 2000, 2001, 2003, 2004,
* 2006, 2009, 2011 Free Software Foundation, Inc.
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License * modify it under the terms of the GNU Lesser General Public License
@ -341,6 +342,9 @@ SCM_DEFINE (scm_string_ci_to_symbol, "string-ci->symbol", 1, 0, 0,
} }
#undef FUNC_NAME #undef FUNC_NAME
/* The default prefix for `gensym'd symbols. */
static SCM default_gensym_prefix;
#define MAX_PREFIX_LENGTH 30 #define MAX_PREFIX_LENGTH 30
SCM_DEFINE (scm_gensym, "gensym", 0, 1, 0, SCM_DEFINE (scm_gensym, "gensym", 0, 1, 0,
@ -359,7 +363,7 @@ SCM_DEFINE (scm_gensym, "gensym", 0, 1, 0,
char buf[SCM_INTBUFLEN]; char buf[SCM_INTBUFLEN];
if (SCM_UNBNDP (prefix)) if (SCM_UNBNDP (prefix))
prefix = scm_from_locale_string (" g"); prefix = default_gensym_prefix;
/* mutex in case another thread looks and incs at the exact same moment */ /* mutex in case another thread looks and incs at the exact same moment */
scm_i_scm_pthread_mutex_lock (&scm_i_misc_mutex); scm_i_scm_pthread_mutex_lock (&scm_i_misc_mutex);
@ -367,7 +371,7 @@ SCM_DEFINE (scm_gensym, "gensym", 0, 1, 0,
scm_i_pthread_mutex_unlock (&scm_i_misc_mutex); scm_i_pthread_mutex_unlock (&scm_i_misc_mutex);
n_digits = scm_iint2str (n, 10, buf); n_digits = scm_iint2str (n, 10, buf);
suffix = scm_from_locale_stringn (buf, n_digits); suffix = scm_from_latin1_stringn (buf, n_digits);
name = scm_string_append (scm_list_2 (prefix, suffix)); name = scm_string_append (scm_list_2 (prefix, suffix));
return scm_string_to_symbol (name); return scm_string_to_symbol (name);
} }
@ -506,6 +510,8 @@ void
scm_init_symbols () scm_init_symbols ()
{ {
#include "libguile/symbols.x" #include "libguile/symbols.x"
default_gensym_prefix = scm_from_latin1_string (" g");
} }
/* /*