Fixup ignore declarations.

diff --git a/src/compiler/back/regmap.scm b/src/compiler/back/regmap.scm
index 14f83d33346dc3c4ce137734af2e4e540712bcac..ad924fcadd7ecf323139135e1cad3ab845d9de38 100644 (file)
--- 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 bcb016fd98cfe6570e259795e9510b4439c73d24..1d5a145ad1892e6ae7190028cd29d3a6eb422f39 100644 (file)
--- 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)))))