removed obsolete C_emit_trace_info

ursetto · Sep 9, 2011 · 2d5244d · 2d5244d
1 parent 08493d9
commit 2d5244d
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 10 deletions.
diff --git 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
@@ -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
@@ -2093,15 +2093,15 @@
 		 (##sys#check-list-items ;XXX missing
 		  ,v 
 		  (lambda (,var) 
-		    ,(test (second t) ,var)))
+		    ,(test (second t) var)))
 		 '#f)))
 	 ((vector)
 	  (let ((var (gensym)))
 	    `(if (##core#inline "C_i_vectorp" ,v)
 		 (##sys#check-vector-items ;XXX missing
 		  ,v 
 		  (lambda (,var) 
-		    ,(test (second t) ,var)))
+		    ,(test (second t) var)))
 		 '#f)))
 	 ((not)
 	  `(not ,(test (cadr t) v)))