diff --git a/src/foreign/Makefile.in b/src/foreign/Makefile.in
index b1786d8f54..f7514eab8f 100644
--- a/src/foreign/Makefile.in
+++ b/src/foreign/Makefile.in
@@ -13,7 +13,6 @@ ARFLAGS = @ARFLAGS@
 all:
 	$(MAKE) foreign.@LTO@
 	$(MAKE) gcc/libffi/libffi@FOREIGN_CONVENIENCE@.la
-#	$(MAKE) lightning.@LTO@
 
 # Causes objects to be generated in gcc/libffi/src/
 #  in inconvenience mode:
@@ -26,12 +25,6 @@ foreign.@LTO@: $(srcdir)/foreign.c \
            $(srcdir)/../mzscheme/src/schvers.h
 	$(CC) $(CFLAGS) -c $(srcdir)/foreign.c -o foreign.@LTO@
 
-lightning.@LTO@: $(srcdir)/lightning.c \
-           $(srcdir)/../mzscheme/include/scheme.h \
-           $(srcdir)/../mzscheme/src/schemef.h \
-           $(srcdir)/../mzscheme/src/schvers.h
-	$(CC) $(CFLAGS) -c $(srcdir)/lightning.c -o lightning.@LTO@
-
 clean:
-	rm -f foreign.@LTO@ lightning.@LTO@
+	rm -f foreign.@LTO@
 	cd gcc/libffi; $(MAKE) clean
diff --git a/src/foreign/foreign.c b/src/foreign/foreign.c
index dbd976028e..4157abdbcb 100644
--- a/src/foreign/foreign.c
+++ b/src/foreign/foreign.c
@@ -1999,9 +1999,6 @@ static Scheme_Object *foreign_ffi_callback(int argc, Scheme_Object *argv[])
 /*****************************************************************************/
 /* Initialization */
 
-/* lightning initialization */
-/* void scheme_init_lightning(Scheme_Env *env); */
-
 void scheme_init_foreign(Scheme_Env *env)
 {
   Scheme_Env *menv;
@@ -2243,7 +2240,6 @@ void scheme_init_foreign(Scheme_Env *env)
   t->scheme_to_c = ((Scheme_Object*)(void*)(&ffi_type_pointer));
   t->c_to_scheme = ((Scheme_Object*)FOREIGN_fpointer);
   scheme_add_global("_fpointer", (Scheme_Object*)t, menv);
-  /* scheme_init_lightning(menv); */
   scheme_finish_primitive_module(menv);
   scheme_protect_primitive_provide(menv, NULL);
 }
diff --git a/src/foreign/foreign.ssc b/src/foreign/foreign.ssc
index ce3b8d4028..b8e313ab51 100755
--- a/src/foreign/foreign.ssc
+++ b/src/foreign/foreign.ssc
@@ -1595,9 +1595,6 @@ void free_cl_cif_args(void *ignored, void *p)
 /*****************************************************************************/
 /* Initialization */
 
-/* lightning initialization */
-/* void scheme_init_lightning(Scheme_Env *env); */
-
 void scheme_init_foreign(Scheme_Env *env)
 {
   Scheme_Env *menv;
@@ -1630,7 +1627,6 @@ void scheme_init_foreign(Scheme_Env *env)
         (list "(Scheme_Object*)(void*)(&ffi_type_"ftype")")
         (list "(Scheme_Object*)FOREIGN_"cname))
       (~ "scheme_add_global(\"_"stype"\", (Scheme_Object*)t, menv);")):}
-  /* scheme_init_lightning(menv); */
   scheme_finish_primitive_module(menv);
   scheme_protect_primitive_provide(menv, NULL);
 }