Index: session.scm ================================================================== --- session.scm +++ session.scm @@ -173,11 +173,11 @@ ;; (print "dbtype: " dbtype) ;; (sdat-set-dbtype! self (eval dbtype)))) (define (session:setup self) (let ((dbtype (sdat-get-dbtype self)) - (dbinit (eval (sdat-get-dbinit self))) + (dbinit (sdat-get-dbinit self)) (dbexists #f)) (let ((dbfname (alist-ref 'dbname dbinit))) (if (eq? dbtype 'sqlite3) (if (file-exists? dbfname) (begin Index: sqltbl.scm ================================================================== --- sqltbl.scm +++ sqltbl.scm @@ -35,11 +35,11 @@ (define-inline (sqltbl:tbl-set-conn! vec val)(vector-set! vec 5 val)) (define-inline (sqltbl:tbl-set-num-rows! vec val)(vector-set! vec 6 val)) (define-inline (sqltbl:tbl-set-curr-row-ptr! vec val)(vector-set! vec 7 val)) (define-inline (sqltbl:tbl-set-curr-row! vec val)(vector-set! vec 8 val)) -(define (session:initialize self);; initargs) +(define (sqltbl:initialize self);; initargs) (sqltbl:tbl-set-num-rows! self 0) (sqltbl:tbl-set-curr-row-ptr! self 0) (sqltbl:tbl-set-fields! self '()) (sqltbl:tbl-set-fields-hash! self (make-hash-table))) ;; (initialize-slots self initargs)) Index: stml.config.template ================================================================== --- stml.config.template +++ stml.config.template @@ -1,8 +1,8 @@ -(list sroot "/path/to/{pages,models}/dir" - logfile "/tmp/stmlrun/logs.log" ;; this is now required! - dbtype 'sqlite3 ;; or 'pg - dbinit '((dbname . "test-stml.db") - (user . "nobody") - (password . "Dapassword") - (host . "localhost")) - domain "192.168.1.150") +'(sroot "/path/to/{pages,models}/dir" + logfile "/tmp/stmlrun/logs.log" + dbtype sqlite3 + dbinit ((dbname . "test-stml.db") + (user . "nobody") + (password . "Dapassword") + (host . "localhost")) + domain "192.168.1.150")