bug#21181: Possible bug in test-group

[Rob Browning]

With 2.0.11(-deb+1-9):

  scheme@(guile-user)> (use-modules (srfi srfi-64))
  scheme@(guile-user)> (test-group "foo" 13)
  <unnamed port>:2:0: In procedure #<procedure 1ca9e80 at <current input>:2:0 
()>:
  <unnamed port>:2:0: In procedure struct_vtable: Wrong type argument in 
position 1 (expecting struct): #f

Changing the syntax-case to use "body ..." instead of ". body" appears
to fix the problem.

Thanks
-- 
Rob Browning
rlb @defaultvalue.org and @debian.org
GPG as of 2011-07-10 E6A9 DA3C C9FD 1FF8 C676 D2C4 C0F0 39E9 ED1B 597A
GPG as of 2002-11-03 14DD 432F AE39 534D B592 F9A0 25C8 D377 8C7E 73A4