group comp fixes

android/assets/lib.scm

@@ -669,7 +669,7 @@
 (define wrap (layout 'wrap-content 'wrap-content 1 'left 0))
 (define fillwrap (layout 'fill-parent 'wrap-content 1 'left 0))
 (define wrapfill (layout 'wrap-content 'fill-parent 1 'left 0))
-(define fill (layout 'fill-parent 'fill-parent 1 'left 0))
+(define fill (layout 'fill-parent 'fill-parent 1 'left 10))
 
 (define (spacer size) (space (layout 'fill-parent size 1 'left 0)))
 

android/src/foam/mongoose/starwisp.java

@@ -110,6 +110,7 @@ public class starwisp extends StarwispActivity
         m_Scheme.Load("eavdb/entity-csv.ss");
         m_Scheme.Load("eavdb/eavdb.ss");
         m_Scheme.Load("dbsync.scm");
+        m_Scheme.Load("mongoose.scm");
 
 
         m_Builder = new StarwispBuilder(m_Scheme);

eavdb/entity-filter.ss

@@ -95,10 +95,10 @@
 (define (filter-entities db table type filter)
   (let ((s (apply
             db-select
-            (dbg (append
+            (append
              (list db (build-query table filter (not (equal? type "*"))))
              (build-args filter)
-             (if (equal? type "*") '() (list type)))))))
+             (if (equal? type "*") '() (list type))))))
     (msg (db-status db))
     (if (null? s)
         '()