From c0bb539af7ade67fb00e32d48d469fd5a87b783f Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 21 Feb 2016 06:56:23 -0700
Subject: [PATCH] make an optimizer function private

---
 racket/src/racket/src/optimize.c | 9 +++++----
 racket/src/racket/src/schpriv.h  | 1 -
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/racket/src/racket/src/optimize.c b/racket/src/racket/src/optimize.c
index 0846e25d26..a4b08ef1a7 100644
--- a/racket/src/racket/src/optimize.c
+++ b/racket/src/racket/src/optimize.c
@@ -145,6 +145,8 @@ static void optimize_info_seq_done(Optimize_Info *info, Optimize_Info_Sequence *
 static Scheme_Object *estimate_closure_size(Scheme_Object *e);
 static Scheme_Object *no_potential_size(Scheme_Object *value);
 
+static Scheme_Object *optimize_lets(Scheme_Object *form, Optimize_Info *info, int for_inline, int context);
+
 static Scheme_Object *optimize_clone(int single_use, Scheme_Object *obj, Optimize_Info *info, Scheme_Hash_Tree *var_map, int as_rator);
 
 static int relevant_predicate(Scheme_Object *pred);
@@ -1886,7 +1888,7 @@ static Scheme_Object *apply_inlined(Scheme_Lambda *lam, Optimize_Info *info,
   if (!single_use || lam->ir_info->is_dup)
     sub_info->inline_fuel >>= 1;
 
-  p = scheme_optimize_lets((Scheme_Object *)lh, sub_info, 1, context);
+  p = optimize_lets((Scheme_Object *)lh, sub_info, 1, context);
 
   info->single_result = sub_info->single_result;
   info->preserves_marks = sub_info->preserves_marks;
@@ -5816,8 +5818,7 @@ static void end_transitive_use_record(Optimize_Info *info)
   }
 }
 
-Scheme_Object *
-scheme_optimize_lets(Scheme_Object *form, Optimize_Info *info, int for_inline, int context)
+static Scheme_Object *optimize_lets(Scheme_Object *form, Optimize_Info *info, int for_inline, int context)
 /* This is the main entry point for optimizing a `let[rec]-values` form. */
 {
   Optimize_Info *body_info, *rhs_info;
@@ -7707,7 +7708,7 @@ Scheme_Object *scheme_optimize_expr(Scheme_Object *expr, Optimize_Info *info, in
     else
       return optimize_lambda(expr, info, context);
   case scheme_ir_let_header_type:
-    return scheme_optimize_lets(expr, info, 0, context);
+    return optimize_lets(expr, info, 0, context);
   case scheme_ir_toplevel_type:
     info->size += 1;
     if (info->top_level_consts) {
diff --git a/racket/src/racket/src/schpriv.h b/racket/src/racket/src/schpriv.h
index ffa68b2837..55a7da5907 100644
--- a/racket/src/racket/src/schpriv.h
+++ b/racket/src/racket/src/schpriv.h
@@ -3204,7 +3204,6 @@ Scheme_Object *scheme_protect_quote(Scheme_Object *expr);
 Scheme_Object *scheme_letrec_check_expr(Scheme_Object *);
 
 Scheme_Object *scheme_optimize_expr(Scheme_Object *, Optimize_Info *, int context);
-Scheme_Object *scheme_optimize_lets(Scheme_Object *form, Optimize_Info *info, int for_inline, int context);
 
 /* Context uses result as a boolean: */
 #define OPT_CONTEXT_BOOLEAN    0x1