~ chicken-core (chicken-5) d33ef1056fc4d0884b77149b32be9f9621e36f32


commit d33ef1056fc4d0884b77149b32be9f9621e36f32
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Tue Sep 12 17:18:01 2017 +1200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Tue Sep 12 17:07:32 2017 +1200

    Drop unused variable in `install-inline-file`

diff --git a/egg-compile.scm b/egg-compile.scm
index ce931124..4b6e0449 100644
--- a/egg-compile.scm
+++ b/egg-compile.scm
@@ -648,7 +648,6 @@
          srcdir platform)
   (let* ((cmd (install-file-command platform))
          (mkdir (mkdir-command platform))
-         (sname (prefix srcdir name))
          (out (quotearg (prefix srcdir (conc inline-file ".inline"))))
          (dest (destination-repository mode))
          (dfile (quotearg (slashify dest platform)))
Trap