From svnnotify ¡÷ sourceforge.jp  Tue Jul  1 10:26:15 2008
From: svnnotify ¡÷ sourceforge.jp (svnnotify ¡÷ sourceforge.jp)
Date: Tue, 01 Jul 2008 10:26:15 +0900
Subject: [Tritonn-commit 149]  [svn] [163] cutting off some debug print
Message-ID: <1214875575.827804.14375.nullmailer@users.sourceforge.jp>

Revision: 163
          http://svn.sourceforge.jp/cgi-bin/viewcvs.cgi?root=tritonn&view=rev&rev=163
Author:   mir
Date:     2008-07-01 10:26:15 +0900 (Tue, 01 Jul 2008)

Log Message:
-----------
cutting off some debug print

Modified Paths:
--------------
    trunk/src/ha_tritonn.cc


-------------- next part --------------
Modified: trunk/src/ha_tritonn.cc
===================================================================
--- trunk/src/ha_tritonn.cc	2008-06-27 05:08:16 UTC (rev 162)
+++ trunk/src/ha_tritonn.cc	2008-07-01 01:26:15 UTC (rev 163)
@@ -40,7 +40,7 @@
 static void dump_create(const char *name, TABLE *table_arg,
 			HA_CREATE_INFO *create_info);
 
-static void call_senna_ql(sen_ctx *ctx, const char *str, bool disp=false);
+static void call_senna_ql(sen_ctx *ctx, const char *str, bool disp=true);
 
 static char *mysqltype2sennatype_string(enum_field_types types);
 
@@ -281,13 +281,13 @@
   call_senna_ql(ctx, "(define (select recs expr) (reverse (letrec "
 		"((func (lambda (r x) (if x (let ((y (expr x))) "
 		"(func (if y (cons y r) r) (recs ::+ x))) r)))) "
-		"(func () (recs ::)))))");
+		"(func () (recs ::)))))",false);
   call_senna_ql(ctx, "(define (slot-exps class) (select <db> "
 		"(lambda (x) (let ((s (x ::schema))) (and (pair? s) "
-		"(eq? class (car s)) (list () (car (cdr (cdr s)))))))))");
+		"(eq? class (car s)) (list () (car (cdr (cdr s)))))))))",false);
   call_senna_ql(ctx, "(define (dump-table class) (if (< 0 class.:nrecords) "
 		"(begin (disp `(: ,class (.:key ,@(slot-exps class)) 0 0) "
-		":tsv))))");
+		":tsv))))",false);
 
   DBUG_RETURN(0);
 }