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

Removed unused code

Browse Source 
svn: r16112
This commit is contained in:
Kevin Tew 2009-09-22 19:19:47 +00:00
parent 6ac7ad9a3c
commit 4ad24edba4
2 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mzscheme/src/bignum.c
View File

@ -1657,8 +1657,6 @@ Scheme_Object *scheme_integer_sqrt_rem(const Scheme_Object *n, Scheme_Object **r
}
}
int gcd_calls = 0;
Scheme_Object *scheme_bignum_gcd(const Scheme_Object *n, const Scheme_Object *d)
{
bigdig *r_digs, *n_digs, *d_digs;

11
src/mzscheme/src/stxobj.c
View File

@ -91,7 +91,6 @@ static Scheme_Stx_Srcloc *empty_srcloc;
static Scheme_Object *empty_simplified;
static Scheme_Hash_Table *empty_hash_table;
static THREAD_LOCAL Scheme_Hash_Table *quick_hash_table;
static THREAD_LOCAL Scheme_Object *last_phase_shift;
@ -217,8 +216,6 @@ typedef struct Scheme_Lexical_Rib {
struct Scheme_Lexical_Rib *next;
} Scheme_Lexical_Rib;
static Module_Renames *krn;
#define SCHEME_RENAMESP(obj) (SAME_TYPE(SCHEME_TYPE(obj), scheme_rename_table_type))
#define SCHEME_RENAMES_SETP(obj) (SAME_TYPE(SCHEME_TYPE(obj), scheme_rename_table_set_type))
@ -620,9 +617,6 @@ void scheme_init_stx(Scheme_Env *env)
REGISTER_SO(last_phase_shift);
REGISTER_SO(empty_hash_table);
empty_hash_table = scheme_make_hash_table(SCHEME_hash_ptr);
REGISTER_SO(no_nested_inactive_certs);
no_nested_inactive_certs = scheme_make_raw_pair(NULL, NULL);
SCHEME_SET_IMMUTABLE(no_nested_inactive_certs);
@ -1380,11 +1374,6 @@ Scheme_Object *scheme_make_module_rename(Scheme_Object *phase, int kind, Scheme_
mr->shared_pes = scheme_null;
mr->unmarshal_info = scheme_null;
if (!krn) {
REGISTER_SO(krn);
krn = mr;
}
return (Scheme_Object *)mr;
}