suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove unused symbol

Browse Source
This commit is contained in:
Matthew Flatt 2011-11-14 17:13:13 -07:00
parent f6df62e501
commit aefb574f81
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/racket/src/print.c
View File

@ -47,7 +47,6 @@ THREAD_LOCAL_DECL(static Scheme_Hash_Table *cache_ht);
/* read-only globals */ /* read-only globals */
SHARED_OK static char compacts[_CPT_COUNT_]; SHARED_OK static char compacts[_CPT_COUNT_];
SHARED_OK static Scheme_Hash_Table *global_constants_ht; SHARED_OK static Scheme_Hash_Table *global_constants_ht;
SHARED_OK static Scheme_Object *quote_link_symbol = NULL;
ROSYM Scheme_Object *quote_symbol; ROSYM Scheme_Object *quote_symbol;
ROSYM Scheme_Object *quasiquote_symbol; ROSYM Scheme_Object *quasiquote_symbol;
@ -162,11 +161,6 @@ void scheme_init_print(Scheme_Env *env)
{ {
int i; int i;
REGISTER_SO(quote_link_symbol);
quote_link_symbol = scheme_intern_symbol("-q");
for (i = 0; i < _CPT_COUNT_; i++) { for (i = 0; i < _CPT_COUNT_; i++) {
compacts[i] = i; compacts[i] = i;
} }