From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Wed, 24 Feb 2010 20:35:13 +0000 (-0800)
Subject: Fixup ignore declarations.
X-Git-Tag: 20100708-Gtk~151
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=452a12c09036a3ba5e3171db2c43a64b85400672;p=mit-scheme.git

Fixup ignore declarations.
---

diff --git a/src/compiler/back/regmap.scm b/src/compiler/back/regmap.scm
index 14f83d333..ad924fcad 100644
--- a/src/compiler/back/regmap.scm
+++ b/src/compiler/back/regmap.scm
@@ -748,7 +748,6 @@ for REGISTER.  If no such register exists, returns #F."
 			       (output-loop output-entries))))))
 
 (define-export (clear-map-instructions input-map)
-  input-map
   (input-loop (map-entries input-map) (LAP)))
 
 (define (input-loop entries tail)
diff --git a/src/compiler/back/syntax.scm b/src/compiler/back/syntax.scm
index bcb016fd9..1d5a145ad 100644
--- a/src/compiler/back/syntax.scm
+++ b/src/compiler/back/syntax.scm
@@ -142,7 +142,7 @@ USA.
 	`(,(close-syntax 'LET environment)
 	  ((,name ,expression))
 	  (,(close-syntax 'DECLARE environment) (INTEGRATE ,name))
-	  ,name				;ignore if not referenced
+	  (,(close-syntax 'DECLARE environment) (IGNORABLE ,name))
 	  (,(close-syntax 'CAR environment) ,(car chosen))))
       `(,(close-syntax 'SYNTAX-VARIABLE-WIDTH-EXPRESSION environment)
 	,expression
@@ -151,7 +151,7 @@ USA.
 		  `(,(close-syntax 'CONS environment)
 		    (,(close-syntax 'LAMBDA environment)
 		     (,name)
-		     ,name		;ignore if not referenced
+		     (,(close-syntax 'DECLARE environment) (IGNORABLE ,name))
 		     ,(car clause))
 		    ',(cdr clause)))
 		clauses)))))