From 27045dd20c639812bf48277c425638c5912ced28 Mon Sep 17 00:00:00 2001 From: Peter Bex Date: Sat, 24 Feb 2018 11:21:39 +0100 Subject: [PATCH 2/2] Drop renaming code that was never possibly being used This was changed a while ago, and it turns out that the "fix" was actually disabling some code because assq will return a pair, not a symbol, so the symbol? check would always fail. The code in the else branch that would always trigger is duplicated in the main cond's else branch, so we can drop the entire assq cond clause. --- expand.scm | 11 ----------- 1 file changed, 11 deletions(-) diff --git a/expand.scm b/expand.scm index 2dfa6ae2..5a68247d 100644 --- a/expand.scm +++ b/expand.scm @@ -850,17 +850,6 @@ (lambda (a) (dd `(RENAME/RENV: ,sym --> ,(cdr a))) (cdr a))) - ((assq sym se) => - (lambda (a) - (cond ((symbol? a) - (dd `(RENAME/SE: ,sym --> ,a)) - (set! renv (cons (cons sym a) renv)) - a) - (else - (let ((a2 (macro-alias sym se))) - (dd `(RENAME/SE/MACRO: ,sym --> ,a2)) - (set! renv (cons (cons sym a2) renv)) - a2))))) (else (let ((a (macro-alias sym se))) (dd `(RENAME: ,sym --> ,a)) -- 2.11.0