Overview
Comment:99% ported to chicken-scheme v4.7
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | move-to-ck4.7.x
Files: files | file ages | folders
SHA1: 108610701092a85bcade4e0e6e956c7f197604af
User & Date: matt on 2011-10-03 00:52:29
Other Links: branch diff | manifest | tags
Context
2011-10-04
02:56
Minor porting and debugging tweaks check-in: 471f3f9325 user: matt tags: move-to-ck4.7.x
2011-10-03
00:52
99% ported to chicken-scheme v4.7 check-in: 1086107010 user: matt tags: move-to-ck4.7.x
2011-10-02
23:50
98% ported to chicken-scheme v4.7 check-in: 414475a853 user: matt tags: move-to-ck4.7.x
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified session.scm from [d4b9e22956] to [e1ef9f0955].

︙︙
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185

    (if domain  (sdat-set-domain!  self domain))))
;;   (let ((dbtype (sdat-get-dbtype self)))
;;     (print "dbtype: " dbtype)
;;     (sdat-set-dbtype! self (eval dbtype))))

(define (session:setup self)
  (let ((dbtype (sdat-get-dbtype self))
	(dbinit (sdat-get-dbinit self))
	(dbexists #f))
    (let ((dbfname (alist-ref 'dbname dbinit)))
      (if (eq? dbtype 'sqlite3)
	  (if (file-exists? dbfname)
	      (begin
		;; (session:log self "setting dbexists to #t")
		(set! dbexists #t))))








|








171
172
173
174
175
176
177
178
179
180
181
182
183
184
185

    (if domain  (sdat-set-domain!  self domain))))
;;   (let ((dbtype (sdat-get-dbtype self)))
;;     (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)))
	(dbexists #f))
    (let ((dbfname (alist-ref 'dbname dbinit)))
      (if (eq? dbtype 'sqlite3)
	  (if (file-exists? dbfname)
	      (begin
		;; (session:log self "setting dbexists to #t")
		(set! dbexists #t))))
︙︙