use-syntax troubles

[Bill Schottstaedt]

(use-modules (ice-9 syncase))

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


In 1.6.0 and including the CVS guile of Aug 22 (I didn't try a later
one until Friday's), this worked fine. In the current CVS guile, it causes
an endless core-up -- perhaps it should issue an error message?

I'm aware that it should be (use-syntax (ice-9 syncase)), but that
casues endless troubles.  For example,


(use-syntax (ice-9 syncase))

(define (atest)
  "this is a comment"
  (define (btest)
    1)
  2)


dies with

invalid context for definition of btest
In /home/bil/test/guile/share/guile/1.7.0/ice-9/syncase.scm:
 134: 0* [scm-error misc-error #f ...]

comment out either the doc-string or the use-syntax, and it's ok.

It also screws up with the optargs module:


(use-modules (ice-9 optargs))
(use-syntax (ice-9 syncase))

(define* (ctest #:optional (count 1))
  1)


-> Syntax error in fixed argument declaration.

These last two die in guile 1.6.0 as well but work if you
use use-modules instead.