.

original commit: 0c2b45199ef5632d1ae18521aacc748ca7500c19

collects/mzlib/private/sigutil.ss

@@ -70,7 +70,7 @@
 	   [(symbol? elem) elem]
 	   [(and (pair? elem) (symbol? (car elem)))
 	    (intern-signature (car elem) (cdr elem))]
-	   [else (error)]))
+	   [else (error "intern failed")]))
 	(vector->list (car desc)))
        (map
 	(lambda (elem)

collects/mzlib/process.ss

@@ -28,6 +28,7 @@
 			 'exact
 			 (format "~a /c ~a" cmd argstr))))
       (else (raise-mismatch-error 
+	     who
 	     (format "~a: don't know what shell to use for platform: " who)
 	     (system-type)))))
 

collects/mzlib/thread.ss

@@ -60,7 +60,6 @@
 		      (make-exn:application:arity
 		       (format "<procedure-from-consumer-thread>: consumer procedure arity is ~e; provided ~s argument~a"
 			       (procedure-arity f) num (if (= 1 num) "" "s"))
-		       #f #f
 		       (current-continuation-marks)
 		       num
 		       (procedure-arity f)))))