Overview
Comment:Added debug-mode helper function
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 8a162a14050baefefc69dd860c17a4f5f823ba6b
User & Date: matt on 2013-01-05 20:42:53
Other Links: manifest | tags
Context
2013-01-09
06:20
Fixed output of error in error page check-in: 60f784c4db user: matt tags: trunk
2013-01-05
20:42
Added debug-mode helper function check-in: 8a162a1405 user: matt tags: trunk
2012-12-13
05:41
Install used instead of cp for install, cleaned up stmlrun.scm a bit check-in: a53376324f user: kiatoaco tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified setup.scm from [daa8cad43d] to [5f9d0e6d18].

︙︙
101
102
103
104
105
106
107




108

  (session:model-path s:session model))

(define (s:db)
  (sdat-get-conn s:session))

(define (s:never-called-page? page)
  (session:never-called-page? s:session page))













>
>
>
>


101
102
103
104
105
106
107
108
109
110
111
112

  (session:model-path s:session model))

(define (s:db)
  (sdat-get-conn s:session))

(define (s:never-called-page? page)
  (session:never-called-page? s:session page))

;; find out if we are in debugmode
(define (s:debug-mode?)
  (sdat-get-debugmode s:session))