.

original commit: 5830c9ace4912d1b4fb2febbc9fb4bdbaa188083

collects/mzlib/class.ss

@@ -1704,7 +1704,6 @@
       (string-append
        (format "~a: " where)
        (apply format msg))
-      where (syntax-source-module (quote-syntax here))
       (current-continuation-marks))))
 
   (define (for-class name)

collects/mzlib/private/sigmatch.ss

@@ -48,7 +48,6 @@
 					    src-context
 					    (sig-path-name s path)
 					    dest-context)
-					   who #f
 					   (current-continuation-marks)))))])
 		(and v
 		     (begin
@@ -63,7 +62,6 @@
 			      p
 			      dest-context
 			      p)
-			     who #f
 			     (current-continuation-marks)))))
 		       (hash-table-put! table s #f)
 		       #t)))]
@@ -78,7 +76,6 @@
 					    src-context
 					    (sig-path-name (car s) path)
 					    dest-context)
-					   who #f
 					   (current-continuation-marks)))))])
 		(and v
 		     (begin
@@ -93,7 +90,6 @@
 			      p
 			      dest-context
 			      p)
-			     who #f
 			     (current-continuation-marks)))))
 		       (hash-table-put! table (car s) #f)
 		       (check-sig-match v (cdr s) (cons (car s) path)
@@ -115,7 +111,6 @@
 		       (if (symbol? v) 'value 'sub-unit)
 		       p
 		       dest-context)
-		      who #f
 		      (current-continuation-marks)))))))
 	     #t)))
 

collects/mzlib/unit.ss

@@ -278,7 +278,6 @@
       (raise
        (make-exn:unit
 	(format "compound-unit: result of expression for tag ~s not a unit: ~e" tag unit)
-	'compound-unit (syntax-source-module (quote-syntax here))
 	(current-continuation-marks))))
     (unless (= num-imports (unit-num-imports unit))
       (raise
@@ -287,7 +286,6 @@
 		tag
 		(unit-num-imports unit)
 		num-imports)
-	'compound-unit (syntax-source-module (quote-syntax here))
 	(current-continuation-marks))))
     (list->vector
      (map (lambda (ex)
@@ -298,7 +296,6 @@
 		 (make-exn:unit
 		  (format "compount-unit: unit for tag ~s has no ~s export" 
 			  tag ex)
-		  'compound-unit (syntax-source-module (quote-syntax here))
 		  (current-continuation-marks)))]
 	       [(eq? (car l) ex)
 		i]
@@ -610,14 +607,12 @@
       (raise
        (make-exn:unit
 	(format "invoke-unit: result of unit expression was not a unit: ~e" u)
-	'invoke-unit (syntax-source-module (quote-syntax here))
 	(current-continuation-marks))))
     (unless (= (unit-num-imports u) n)
       (raise
        (make-exn:unit
 	(format "invoke-unit: expected a unit with ~a imports, given one with ~a imports"
 		n (unit-num-imports u))
-	'invoke-unit (syntax-source-module (quote-syntax here))
 	(current-continuation-marks)))))
 
   (define-syntax invoke-unit

collects/mzlib/unitsig.ss

@@ -172,7 +172,6 @@
 		(format
 		 "~s: expression for \"~s\" is not a signed unit: ~e"
 		 who tag u))
-	       who #f
 	       (current-continuation-marks)))))
 	 units tags)
 	(for-each
@@ -195,7 +194,6 @@
 		  (format
 		   "~s: ~a unit imports ~a units, but ~a units were provided"
 		   who tag n c))
-		 who #f
 		 (current-continuation-marks))))))
 	 units tags isigs)
 	(for-each

collects/tests/mzscheme/unit.ss

@@ -205,7 +205,7 @@
 	       (export)
 	       (define (filter v)
 		 (if (procedure? v)
-		     `(proc: ,(syntax-e (object-name v)))
+		     `(proc: ,(object-name v))
 		     v))
 	       (display 
 		(map filter (list x v struct:a y make-x x? x-z both))

collects/tests/mzscheme/unitsig.ss

@@ -298,7 +298,7 @@
   (let ([p (open-output-string)]
 	[filter (lambda (v)
 		  (if (procedure? v)
-		      `(proc: ,(syntax-e (object-name v)))
+		      `(proc: ,(object-name v))
 		      v))])
     (invoke-unit/sig
      (compound-unit/sig