[RFC 11/14] Invalid code in rtx-traverse.scm

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