Merge branch 'master' of github.com:nebogeo/mongoose-web

web/scripts/sync.ss

@@ -138,7 +138,7 @@
         (build db (- n 1))))
 
 (define (test)
-  (let ((db (open-db "unit.db")))
+  (let ((db (db-open "unit.db")))
     (build db 99999999)
     ))
 

web/server.scm

@@ -35,7 +35,7 @@
 ;;(define setuid (get-ffi-obj 'setuid #f (_fun _int -> _int)))
 
 (define db-name "mongoose.db")
-(define db (open-db db-name))
+(define db (db-open db-name))
 (open-log "log.txt")
 
 (define registered-requests