diff options
author | BT Templeton <[email protected]> | 2013-08-17 16:31:48 -0400 |
---|---|---|
committer | Robin Templeton <[email protected]> | 2015-04-19 03:43:02 -0400 |
commit | 69614c3bf04402fc45fe76bce39c153b9851310d (patch) | |
tree | 79200ceeef694880fd364db31922b96ba4241777 /src | |
parent | 294180317b6417c54618d4822c19bc0809c2bc7a (diff) |
[SQUASH] rm symbol name
* src/alloc.c (set_symbol_name): Remove. All callers changed.
(SYMBOL_NAME): Return Guile symbol name.
Diffstat (limited to 'src')
-rw-r--r-- | src/alloc.c | 7 | ||||
-rw-r--r-- | src/lisp.h | 5 |
2 files changed, 1 insertions, 11 deletions
diff --git a/src/alloc.c b/src/alloc.c index 38a548266e..65e063bc52 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -1165,12 +1165,6 @@ usage: (make-byte-code ARGLIST BYTE-CODE CONSTANTS DEPTH &optional DOCSTRING INT Symbol Allocation ***********************************************************************/ -static void -set_symbol_name (Lisp_Object sym, Lisp_Object name) -{ - XSYMBOL (sym)->name = name; -} - void initialize_symbol (Lisp_Object val, Lisp_Object name) { @@ -1179,7 +1173,6 @@ initialize_symbol (Lisp_Object val, Lisp_Object name) scm_module_define (symbol_module, val, scm_from_pointer (p, NULL)); p = XSYMBOL (val); p->self = val; - set_symbol_name (val, name); scm_module_define (plist_module, val, Qnil); p->redirect = SYMBOL_PLAINVAL; SET_SYMBOL_VAL (p, Qunbound); diff --git a/src/lisp.h b/src/lisp.h index ca44ab9810..62e72eca28 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -1328,9 +1328,6 @@ struct Lisp_Symbol /* True if pointed to from purespace and hence can't be GC'd. */ bool_bf pinned : 1; - /* The symbol's name, as a Lisp string. */ - Lisp_Object name; - /* Value of the symbol or Qunbound if unbound. Which alternative of the union is used depends on the `redirect' field above. */ union { @@ -1389,7 +1386,7 @@ SET_SYMBOL_FWD (struct Lisp_Symbol *sym, union Lisp_Fwd *v) INLINE Lisp_Object SYMBOL_NAME (Lisp_Object sym) { - return XSYMBOL (sym)->name; + return build_string (scm_to_locale_string (scm_symbol_to_string (sym))); } /* Value is true if SYM is an interned symbol. */ |