define-syntax and vector constants

[Bill Schottstaedt]

I think define-syntax is stumbling on vector constants:

(use-modules (ice-9 syncase))

(define-syntax IF
  (syntax-rules ()
    ((IF <form1> <form2>) (if <form1> <form2>))
    ((IF <form1> <form2> <form3>) (if <form1> <form2> <form3>))))

(IF (not (vector? #(4.0)))
    (display "oops"))


invalid syntax #(4.0)
In /usr/lib/snd/share/guile/1.7.0/ice-9/syncase.scm:
 122: 0* [scm-error misc-error #f "~A ~S" ("invalid syntax" #(4.0)) ()]

(happens in Guile 1.4 also).