From e94df8211e16640bc2138a2287fb85485c17148c Mon Sep 17 00:00:00 2001 From: Doug Evans Date: Sun, 1 Nov 2009 21:09:57 +0000 Subject: [PATCH] (/rtx-canon): Minor simplification of previous patch. --- rtl-traverse.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/rtl-traverse.scm b/rtl-traverse.scm index f2741f1..807d295 100644 --- a/rtl-traverse.scm +++ b/rtl-traverse.scm @@ -1182,15 +1182,15 @@ (let ((result (if (pair? expr) ;; pair? -> cheap non-null-list? - (begin - (if (not (symbol? (car expr))) + (let ((rtx-name (car expr))) + (if (not (symbol? rtx-name)) (/rtx-canon-error cstate "invalid rtx function name" expr parent-expr op-num)) - (let ((rtx-obj (rtx-lookup (car expr)))) + (let ((rtx-obj (rtx-lookup rtx-name))) (if rtx-obj - (/rtx-canon-expr rtx-obj mode (car expr) (cdr expr) + (/rtx-canon-expr rtx-obj mode rtx-name (cdr expr) parent-expr op-num cstate env depth) - (let ((rtx-obj (/rtx-macro-lookup (car expr)))) + (let ((rtx-obj (/rtx-macro-lookup rtx-name))) (if rtx-obj (/rtx-canon (/rtx-macro-expand expr rtx-evaluator) expected mode parent-expr op-num cstate env (+ depth 1)) -- 2.43.5