[RFC 11/14] Invalid code in rtx-traverse.scm
Tom Tromey
tom@tromey.com
Sat Aug 19 17:42:10 GMT 2023
The Guile compiler pointed out a 3-argument call to cons in
rtx-traverse.scm. Presumably this code is never run, but this patch
replaces it with what I think is the correct form.
---
rtl-traverse.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/rtl-traverse.scm b/rtl-traverse.scm
index de7911a..6023648 100644
--- a/rtl-traverse.scm
+++ b/rtl-traverse.scm
@@ -1757,7 +1757,7 @@
(if (procedure? fn)
; Don't traverse operands for syntax expressions.
(if (eq? (rtx-style rtx-obj) 'SYNTAX)
- (apply fn (cons tstate cdr expr))
+ (apply fn (cons tstate (cdr expr)))
(let ((operands (/rtx-traverse-operands rtx-obj expr tstate appstuff)))
(apply fn (cons tstate operands))))
fn)
--
2.41.0
More information about the Cgen
mailing list