.

original commit: e9b58213637cefa6278641a1c7299fd738e0c5d6

collects/mzlib/class.ss

@@ -7,7 +7,8 @@
   (provide class
 	   class*
            class?
-	   interface interface?
+	   mixin
+           interface interface?
 	   object% object?
            object=?
 	   new make-object instantiate

collects/mzlib/contract.ss

@@ -678,7 +678,8 @@ add struct contracts for immutable structs?
                  (string-append one-line " ")
                  (let ([sp (open-output-string)])
                    (newline sp)
-                   (parameterize ([pretty-print-print-line print-contract-liner])
+                   (parameterize ([pretty-print-print-line print-contract-liner]
+                                  [pretty-print-columns 50])
                      (pretty-print contract-sexp sp))
                    (get-output-string sp))))]
 	  [specific-blame

collects/mzlib/etc.ss

@@ -1,13 +1,17 @@
 
 (module etc mzscheme
+  
   (require "spidey.ss"
            (lib "plthome.ss" "setup"))
+  
   (require-for-syntax (lib "kerncase.ss" "syntax")
 		      (lib "stx.ss" "syntax")
 		      (lib "name.ss" "syntax")
 		      (lib "context.ss" "syntax")
-		      (lib "plthome.ss" "setup")
-		      "private/stxset.ss")
+                      (lib "plthome.ss" "setup")
+                      "list.ss"
+                      "private/stxset.ss")
+
   
   (provide true false
 	   boolean=? symbol=?

collects/mzlib/struct.ss

@@ -1,11 +1,11 @@
 
-;; by Jacob Matthews
+;; by Jacob Matthews (and others)
 
 (module struct mzscheme
-  (provide copy-struct)
-
+  (provide copy-struct make-->vector)
   (require-for-syntax (lib "struct.ss" "syntax")
-		      (lib "stx.ss" "syntax"))
+		      "list.ss"
+                      (lib "stx.ss" "syntax"))
 
   ;; copy-struct expands to `do-copy-struct' to delay the expansion
   ;;  in an internal-definition context. (The `begin0' wrapper
@@ -70,6 +70,23 @@
 			   #,@(map 
 			       (lambda (field) (or (new-binding-for field) #`(#,field the-struct)))
 			       (reverse accessors)))
-			  (raise-type-error '_  #,(format "struct:~a" (syntax-object->datum #'info)) the-struct))))))]))])))
+			  (raise-type-error '_  #,(format "struct:~a" (syntax-object->datum #'info)) the-struct))))))]))]))
   
   
+  (define-syntax (make-->vector stx)
+    (syntax-case stx ()
+      [(_ name) ; a struct type name
+       (identifier? (syntax name))
+       (let ([info (syntax-local-value (syntax name))])
+         (if (struct-declaration-info? info)
+             (with-syntax ([(accessor ...)
+                            (reverse
+                             (filter identifier? (list-ref info 3)))])
+               (syntax
+                (λ (s)
+                  (vector (accessor s) ...))))
+             (raise-syntax-error
+              #f
+              "not a declared structure type name"
+              stx
+              (syntax name))))])))