From c9ce0318d7531eb6f3025bc64de495c040e9d9f3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 4 Feb 2001 19:52:06 +0000
Subject: [PATCH] .

original commit: 2b7c3fdc298ff2796c76f81cce3129f8ea7ea2ac
---
 collects/mzlib/unit.ss | 32 +++++++++++++++++++++-----------
 1 file changed, 21 insertions(+), 11 deletions(-)

diff --git a/collects/mzlib/unit.ss b/collects/mzlib/unit.ss
index a0db968..2c89fd3 100644
--- a/collects/mzlib/unit.ss
+++ b/collects/mzlib/unit.ss
@@ -236,17 +236,27 @@
 						[var 
 						 (set!-expander
 						  (lambda (sstx)
-						    (syntax-case sstx (set!)
-						      [vr (identifier? (syntax vr))
-							  (syntax (unbox loc))]
-						      [(set! vr val)
-						       (raise-syntax-error
-							'unit
-							"cannot set! imported or exported variables"
-							sstx)]
-						      [(vr . args) (syntax ((unbox loc) . args))])))])))
-					   (syntax->list (syntax ((ivar iloc) ... 
-									      (expname eloc) ...))))]
+						    ;; Avoiding syntax-case and other complex macros
+						    ;; here is a useful optimization, because
+						    ;; the expression below is expanded for every
+						    ;; imported and exported identifier.
+						    (cond
+						     [(identifier? sstx) (quote-syntax (unbox loc))]
+						     [(module-identifier=? 
+						       (quote-syntax set!)
+						       (car (syntax-e sstx)))
+						      (raise-syntax-error
+						       'unit
+						       "cannot set! imported or exported variables"
+						       sstx)]
+						     [else
+						      (datum->syntax
+						       (cons (quote-syntax (unbox loc))
+							     (cdr (syntax-e sstx)))
+						       sstx
+						       (quote-syntax here))])))])))
+					   (syntax->list 
+					    (syntax ((ivar iloc) ... (expname eloc) ...))))]
 					 [num-imports (datum->syntax 
 						       (length (syntax->list (syntax (iloc ...))))
 						       #f (quote-syntax here))])