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.

diff --git a/rtl-traverse.scm b/rtl-traverse.scm
index de7911a9008d5c51b02757bdb46bcf0a64048634..6023648766422d1e24324fbfdc0f6afdf36c2756 100644 (file)
--- 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)