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.
(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)