...but

-----
(define-syntax field->list
  (syntax-rules ()
    ((field->list (name type flags ...))
     '(name type flags ...)))
  )

(define-syntax define-object
  (syntax-rules ()
    ((define-objects NAME FIELDS ...)
     '(begin
       (define NAME
	 (make-gromit-object
	   'NAME
	     (vector (field->list FIELDS) ...)))))
    ))
-----

works!?!