From: Taylor R Campbell <campbell@mumble.net>
Date: Wed, 27 Apr 2011 20:39:07 +0000 (+0000)
Subject: Omit unreferenced variable in COMPILE-SYSTEM.
X-Git-Tag: 20110609-Gtk~16^2~9
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=56faf637738a75fff8a296713d9f2f1de48fcd95;p=mit-scheme.git

Omit unreferenced variable in COMPILE-SYSTEM.
---

diff --git a/src/cref/butils.scm b/src/cref/butils.scm
index 5110da151..e11dce813 100644
--- a/src/cref/butils.scm
+++ b/src/cref/butils.scm
@@ -49,7 +49,6 @@ USA.
     (lambda ()
       (let* ((os-type microcode-id/operating-system)
 	     (pmodel (read-package-model name os-type))
-	     (pathname (pmodel/pathname pmodel))
 	     (dependencies (find-option 'dependencies options '())))
 
 	(declare (integrate-operator file-package))