From edba822553cfa95c907bf3ecb4c4879723ef92ee Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Tue, 19 Nov 2013 19:03:09 +0100
Subject: [PATCH] Remove make-rtl-program.

* libguile/programs.h:
* libguile/programs.c (scm_make_rtl_program): Remove.  Unused.

* module/system/vm/program.scm (system): Remove make-rtl-program
  export.  Unused.
---
 libguile/programs.c          | 30 ------------------------------
 libguile/programs.h          |  1 -
 module/system/vm/program.scm |  4 +---
 3 files changed, 1 insertion(+), 34 deletions(-)

diff --git a/libguile/programs.c b/libguile/programs.c
index fa77b0dd7..29132550e 100644
--- a/libguile/programs.c
+++ b/libguile/programs.c
@@ -30,36 +30,6 @@
 
 static SCM write_program = SCM_BOOL_F;
 
-SCM_DEFINE (scm_make_rtl_program, "make-rtl-program", 1, 2, 0,
-	    (SCM bytevector, SCM byte_offset, SCM free_variables),
-	    "")
-#define FUNC_NAME s_scm_make_rtl_program
-{
-  scm_t_uint8 *code;
-  scm_t_uint32 offset;
-
-  if (!scm_is_bytevector (bytevector))
-    scm_wrong_type_arg (FUNC_NAME, 1, bytevector);
-  if (SCM_UNBNDP (byte_offset))
-    offset = 0;
-  else
-    {
-      offset = scm_to_uint32 (byte_offset);
-      if (offset > SCM_BYTEVECTOR_LENGTH (bytevector))
-        SCM_OUT_OF_RANGE (2, byte_offset);
-    }
-
-  code = (scm_t_uint8*) SCM_BYTEVECTOR_CONTENTS (bytevector) + offset;
-  if (((scm_t_uintptr) code) % 4)
-    SCM_OUT_OF_RANGE (2, byte_offset);
-
-  if (SCM_UNBNDP (free_variables) || scm_is_false (free_variables))
-    return scm_cell (scm_tc7_program, (scm_t_bits) code);
-  else
-    abort ();
-}
-#undef FUNC_NAME
-
 SCM_DEFINE (scm_rtl_program_code, "rtl-program-code", 1, 0, 0,
             (SCM program),
             "")
diff --git a/libguile/programs.h b/libguile/programs.h
index 51ff314c2..535d2d665 100644
--- a/libguile/programs.h
+++ b/libguile/programs.h
@@ -41,7 +41,6 @@ scm_i_make_program (const scm_t_uint32 *code)
 }
 #endif
 
-SCM_INTERNAL SCM scm_make_rtl_program (SCM bytevector, SCM byte_offset, SCM free_variables);
 SCM_INTERNAL SCM scm_rtl_program_p (SCM obj);
 SCM_INTERNAL SCM scm_rtl_program_code (SCM program);
 
diff --git a/module/system/vm/program.scm b/module/system/vm/program.scm
index 243f43eee..9d1fdb15e 100644
--- a/module/system/vm/program.scm
+++ b/module/system/vm/program.scm
@@ -25,9 +25,7 @@
   #:use-module (rnrs bytevectors)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-26)
-  #:export (make-rtl-program
-
-            make-binding binding:name binding:boxed? binding:index
+  #:export (make-binding binding:name binding:boxed? binding:index
             binding:start binding:end
 
             source:addr source:line source:column source:file