fixed PR 8293

svn: r4420

collects/mzlib/private/shared-body.ss

@@ -146,10 +146,11 @@
 				   [(make-x e ...)
 				    (struct-decl-for (syntax make-x))
 				    (let ([decl (struct-decl-for (syntax make-x))])
-				      (with-syntax ([(setter ...) (reverse (list-ref decl 4))])
-					(syntax
-					 (begin
-					   (setter name e) ...))))]
+                                      (syntax-case (reverse (list-ref decl 4)) ()
+                                        [() 
+                                         (syntax (void))]
+                                        [(setter ...) 
+                                         (syntax (begin (setter name e) ...))]))]
 				   [_else (syntax (void))])))
 			     names exprs))]
 		     [(check-expr ...)

collects/tests/mzscheme/shared-tests.ss

@@ -27,7 +27,6 @@
 
 (stest '#11=(#11#) '(shared ([x `(,x)]) x))
 
-
 (define-struct s (a b))
 (shared ([x (make-s 17 x)])
   (begin
@@ -35,4 +34,8 @@
     (test 17 s-a x)
     (test #t eq? x (s-b x))))
 
-
+(define-struct shared-test-ds-no-fields ())
+(stest (make-shared-test-ds-no-fields)
+       '(shared ((-4- 11) 
+                 (-8- (make-shared-test-ds-no-fields)))
+          -8-))