From 452a12c09036a3ba5e3171db2c43a64b85400672 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Wed, 24 Feb 2010 12:35:13 -0800 Subject: [PATCH] Fixup ignore declarations. --- src/compiler/back/regmap.scm | 1 - src/compiler/back/syntax.scm | 4 ++-- 2 files changed, 2 insertions(+), 3 deletions(-) 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))))) -- 2.25.1