cutting off some debug print
@@ -40,7 +40,7 @@ | ||
40 | 40 | static void dump_create(const char *name, TABLE *table_arg, |
41 | 41 | HA_CREATE_INFO *create_info); |
42 | 42 | |
43 | -static void call_senna_ql(sen_ctx *ctx, const char *str, bool disp=false); | |
43 | +static void call_senna_ql(sen_ctx *ctx, const char *str, bool disp=true); | |
44 | 44 | |
45 | 45 | static char *mysqltype2sennatype_string(enum_field_types types); |
46 | 46 |
@@ -281,13 +281,13 @@ | ||
281 | 281 | call_senna_ql(ctx, "(define (select recs expr) (reverse (letrec " |
282 | 282 | "((func (lambda (r x) (if x (let ((y (expr x))) " |
283 | 283 | "(func (if y (cons y r) r) (recs ::+ x))) r)))) " |
284 | - "(func () (recs ::)))))"); | |
284 | + "(func () (recs ::)))))",false); | |
285 | 285 | call_senna_ql(ctx, "(define (slot-exps class) (select <db> " |
286 | 286 | "(lambda (x) (let ((s (x ::schema))) (and (pair? s) " |
287 | - "(eq? class (car s)) (list () (car (cdr (cdr s)))))))))"); | |
287 | + "(eq? class (car s)) (list () (car (cdr (cdr s)))))))))",false); | |
288 | 288 | call_senna_ql(ctx, "(define (dump-table class) (if (< 0 class.:nrecords) " |
289 | 289 | "(begin (disp `(: ,class (.:key ,@(slot-exps class)) 0 0) " |
290 | - ":tsv))))"); | |
290 | + ":tsv))))",false); | |
291 | 291 | |
292 | 292 | DBUG_RETURN(0); |
293 | 293 | } |