From aefb574f816d78047cec60e86faa360e5d9e7a69 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 14 Nov 2011 17:13:13 -0700 Subject: [PATCH] remove unused symbol --- src/racket/src/print.c | 6 ------ 1 file changed, 6 deletions(-) diff --git a/src/racket/src/print.c b/src/racket/src/print.c index 2445279439..5b07927998 100644 --- a/src/racket/src/print.c +++ b/src/racket/src/print.c @@ -47,7 +47,6 @@ THREAD_LOCAL_DECL(static Scheme_Hash_Table *cache_ht); /* read-only globals */ SHARED_OK static char compacts[_CPT_COUNT_]; 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 *quasiquote_symbol; @@ -162,11 +161,6 @@ void scheme_init_print(Scheme_Env *env) { int i; - - REGISTER_SO(quote_link_symbol); - - quote_link_symbol = scheme_intern_symbol("-q"); - for (i = 0; i < _CPT_COUNT_; i++) { compacts[i] = i; }