From 3c97427396ba3d05ce2ed957cb50d86d25c20427 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 9 Nov 2001 22:19:14 +0000
Subject: [PATCH] .

original commit: 1cc989913568e322b23ce1dd4e1768448ff22b33
---
 collects/mzlib/trace.ss | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/collects/mzlib/trace.ss b/collects/mzlib/trace.ss
index 0c5b248..dcd45ef 100644
--- a/collects/mzlib/trace.ss
+++ b/collects/mzlib/trace.ss
@@ -179,14 +179,14 @@
 				       (error 'trace
 					      "~s is not bound" 'id)
 				       (raise exn)))))
-		  (let ((global (global-defined-value 'id)))
+		  (let ((global (namespace-variable-binding 'id)))
 		    (unless (procedure? global)
 		      (error 'trace
 			     "the top-level value of ~s is not a procedure" 'id))))
 		...
 		
 
-		(let ((global-value (global-defined-value 'id)))
+		(let ((global-value (namespace-variable-binding 'id)))
 		  (let ((table-entry (hash-table-get -:trace-table 'id (lambda () #f))))
 		    (unless (and table-entry
 				 (eq? global-value
@@ -212,7 +212,7 @@
 				    (sub1 (-:trace-level))))))))
 			(hash-table-put! -:trace-table 'id
 					 (-:make-traced-entry real-value traced-name))
-			(global-defined-value 'id traced-name)))))
+			(namespace-variable-binding 'id traced-name)))))
 		...
 		'(id ...)))))])))
 
@@ -235,11 +235,11 @@
 		    (let ((entry (hash-table-get -:trace-table
 						 'id (lambda () #f))))
 		      (if (and entry
-			       (eq? (global-defined-value 'id)
+			       (eq? (namespace-variable-binding 'id)
 				    (-:traced-entry-trace-proc entry)))
 			  (begin
 			    (hash-table-put! -:trace-table 'id #f)
-			    (global-defined-value 'id (-:traced-entry-original-proc entry))
+			    (namespace-variable-binding 'id (-:traced-entry-original-proc entry))
 			    (list 'id))
 			  '()))
 		    ...))))])))