.

original commit: 1f7dc0cfc45cda4d181a049246dd720cc135d67d

collects/mzlib/private/sigutil.ss

@@ -159,13 +159,14 @@
 				  [fields (syntax->list (syntax (field ...)))]
 				  [omissions (syntax->list (syntax (omission ...)))])
 			      (unless (or (identifier? name)
-					  (syntax-case name ()
+					  ;; >>> disabled the `(name super)' case for now <<<
-					    [(name super)
+					  (and #f (syntax-case name ()
-					     (and (identifier? (syntax name))
+						    [(name super)
-						  (identifier? (syntax super)))]
+						     (and (identifier? (syntax name))
-					    [_else #f]))
+							  (identifier? (syntax super)))]
+						    [_else #f])))
 				(syntax-error who expr
-					      "struct name is not an identifier or a parenthesized name--super sequence of identifiers"
+					      "struct name is not an identifier" ;; " or a parenthesized name--super sequence of identifiers"
 					      name))
 			      (for-each
 			       (lambda (fld)
@@ -409,7 +410,7 @@
        (apply
 	append
 	(map (lambda (s)
-	       (make-struct-stx-decls (list s) 
+	       (make-struct-stx-decls s
 				      (if signame
 					  (format "~a~a:"
 						  (or prefix "")

collects/net/cgi-unit.ss

@@ -21,12 +21,12 @@
       ;; chars : list (char)
       ;; -- gives the suffix which is invalid, not including the `%'
 
-      (define-struct (incomplete-%-suffix struct:cgi-error) (chars))
+      (define-struct (incomplete-%-suffix cgi-error) (chars))
 
       ;; char : char
       ;; -- an invalid character in a hex string
 
-      (define-struct (invalid-%-suffix struct:cgi-error) (char))
+      (define-struct (invalid-%-suffix cgi-error) (char))
 
       ;; --------------------------------------------------------------------
 

collects/net/nntp-unit.ss

@@ -24,15 +24,15 @@
       ;; group : string
       ;; article : number
 
-      (define-struct (nntp struct:exn) ())
+      (define-struct (nntp exn) ())
-      (define-struct (unexpected-response struct:nntp) (code text))
+      (define-struct (unexpected-response nntp) (code text))
-      (define-struct (bad-status-line struct:nntp) (line))
+      (define-struct (bad-status-line nntp) (line))
-      (define-struct (premature-close struct:nntp) (communicator))
+      (define-struct (premature-close nntp) (communicator))
-      (define-struct (bad-newsgroup-line struct:nntp) (line))
+      (define-struct (bad-newsgroup-line nntp) (line))
-      (define-struct (non-existent-group struct:nntp) (group))
+      (define-struct (non-existent-group nntp) (group))
-      (define-struct (article-not-in-group struct:nntp) (article))
+      (define-struct (article-not-in-group nntp) (article))
-      (define-struct (no-group-selected struct:nntp) ())
+      (define-struct (no-group-selected nntp) ())
-      (define-struct (article-not-found struct:nntp) (article))
+      (define-struct (article-not-found nntp) (article))
 
       ;; signal-error :
       ;; (exn-args ... -> exn) x format-string x values ... ->

collects/net/pop3-unit.ss

@@ -20,16 +20,16 @@
 
       (define-struct communicator (sender receiver server port state))
 
-      (define-struct (pop3 struct:exn) ())
+      (define-struct (pop3 exn) ())
-      (define-struct (cannot-connect struct:pop3) ())
+      (define-struct (cannot-connect pop3) ())
-      (define-struct (username-rejected struct:pop3) ())
+      (define-struct (username-rejected pop3) ())
-      (define-struct (password-rejected struct:pop3) ())
+      (define-struct (password-rejected pop3) ())
-      (define-struct (not-ready-for-transaction struct:pop3) (communicator))
+      (define-struct (not-ready-for-transaction pop3) (communicator))
-      (define-struct (not-given-headers struct:pop3) (communicator message))
+      (define-struct (not-given-headers pop3) (communicator message))
-      (define-struct (illegal-message-number struct:pop3) (communicator message))
+      (define-struct (illegal-message-number pop3) (communicator message))
-      (define-struct (cannot-delete-message struct:exn) (communicator message))
+      (define-struct (cannot-delete-message exn) (communicator message))
-      (define-struct (disconnect-not-quiet struct:pop3) (communicator))
+      (define-struct (disconnect-not-quiet pop3) (communicator))
-      (define-struct (malformed-server-response struct:pop3) (communicator))
+      (define-struct (malformed-server-response pop3) (communicator))
 
       ;; signal-error :
       ;; (exn-args ... -> exn) x format-string x values ... ->
@@ -69,8 +69,8 @@
       (define default-pop-port-number 110)
 
       (define-struct server-responses ())
-      (define-struct (+ok struct:server-responses) ())
+      (define-struct (+ok server-responses) ())
-      (define-struct (-err struct:server-responses) ())
+      (define-struct (-err server-responses) ())
 
       (define +ok (make-+ok))
       (define -err (make--err))

collects/net/sendmail-unit.ss

@@ -10,7 +10,7 @@
     (unit/sig net:sendmail^
       (import)
 
-      (define-struct (no-mail-recipients struct:exn) ())
+      (define-struct (no-mail-recipients exn) ())
 
       (define sendmail-search-path
 	'("/usr/lib" "/usr/sbin"))

collects/net/url-unit.ss

@@ -19,7 +19,7 @@
     (unit/sig net:url^
       (import)
       
-      (define-struct (url-exception struct:exn) ())
+      (define-struct (url-exception exn) ())
       
       ;; This is commented out; it's here for debugging.
       ;; It used to be outside the unit.