~ chicken-core (chicken-5) 2d5244dd01d4e91ed6f73bb566e92f04a2ab6361

commit 2d5244dd01d4e91ed6f73bb566e92f04a2ab6361
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Sep 9 08:35:19 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Sep 9 08:35:19 2011 +0200

    removed obsolete C_emit_trace_info

diff --git a/chicken.h b/chicken.h
index 6e482cad..8c6eff3b 100644
--- a/chicken.h
+++ b/chicken.h
@@ -1597,7 +1597,6 @@ C_fctexport int C_in_stackp(C_word x) C_regparm;
 C_fctexport int C_fcall C_in_heapp(C_word x) C_regparm;
 C_fctexport int C_fcall C_in_fromspacep(C_word x) C_regparm;
 C_fctexport void C_fcall C_trace(C_char *name) C_regparm;
-C_fctexport C_word C_fcall C_emit_trace_info(C_word x, C_word y, C_word t) C_regparm;
 C_fctexport C_word C_fcall C_emit_trace_info2(char *raw, C_word x, C_word y, C_word t) C_regparm;
 C_fctexport C_word C_fcall C_hash_string(C_word str) C_regparm;
 C_fctexport C_word C_fcall C_hash_string_ci(C_word str) C_regparm;
diff --git a/runtime.c b/runtime.c
index b8d9c41d..399713eb 100644
--- a/runtime.c
+++ b/runtime.c
@@ -3664,13 +3664,6 @@ C_regparm void C_fcall C_trace(C_char *name)
 }
 
 
-/* DEPRECATED: throw out at some stage: */
-C_regparm C_word C_fcall C_emit_trace_info(C_word x, C_word y, C_word t)
-{
-  return C_emit_trace_info2("<eval>", x, y, t);
-}
-
-
 C_regparm C_word C_fcall C_emit_trace_info2(char *raw, C_word x, C_word y, C_word t)
 {
   if(trace_buffer_top >= trace_buffer_limit) {
diff --git a/scrutinizer.scm b/scrutinizer.scm
index 16f74704..cc86e623 100755
--- a/scrutinizer.scm
+++ b/scrutinizer.scm
@@ -2093,7 +2093,7 @@
 		 (##sys#check-list-items ;XXX missing
 		  ,v 
 		  (lambda (,var) 
-		    ,(test (second t) ,var)))
+		    ,(test (second t) var)))
 		 '#f)))
 	 ((vector)
 	  (let ((var (gensym)))
@@ -2101,7 +2101,7 @@
 		 (##sys#check-vector-items ;XXX missing
 		  ,v 
 		  (lambda (,var) 
-		    ,(test (second t) ,var)))
+		    ,(test (second t) var)))
 		 '#f)))
 	 ((not)
 	  `(not ,(test (cadr t) v)))