Index: lib/struct.scm
==================================================================
--- lib/struct.scm
+++ lib/struct.scm
@@ -84,17 +84,15 @@
 		(define (safe-vector-ref v i) (if (null? v) (error "all struct fields need to be specified unless functional record update syntax is in use")
 										  (vector-ref v i)))
 		(let* ([basis (if (,(symsuf name "?") (car args)) (cdar args) '())]
 			   [spec (if (null? basis) args (cdr args))])
 		  (cons (quote ,typesym)
-				(vector ,@(reduce-flds 0 fields)
-
-				  ))))))
+				(vector ,@(reduce-flds 0 fields)))))))
 
   (let* ([name (car body)]
 		 [fields (cdr body)]
 		 [typesym (gensym)]
 		 [types (map extract-type fields)])
 	(append (emit-pred name typesym)
 			(emit-def  name types)
 			(emit-gen  name types typesym fields)
 			(reduce-fields name 0 fields))))