Overview
Comment:Removed unnecessary output messages.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | selfcontained
Files: files | file ages | folders
SHA1: e9a3ddb76a3333442035a649a5e1d1bbdb319653
User & Date: matt on 2013-05-24 21:38:46
Other Links: branch diff | manifest | tags
Context
2013-06-05
07:13
Added s:h3 and s:h4 check-in: 6497bed82c user: matt tags: v0.9, selfcontained
2013-05-24
21:38
Removed unnecessary output messages. check-in: e9a3ddb76a user: matt tags: selfcontained
2013-05-21
08:25
bit messed up but converging on modularized and single-exe check-in: 320ab4e791 user: matt tags: selfcontained
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified session.scm from [f4104e444e] to [5303f7c875].

︙︙
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618

;;  'dir      => directory tree pages/<pagename>/{view,control}.scm
;; parts:
;;  'both     => load control and view (anything other than view or control
;;  'view     => load view only
;;  'control  => load control only
(define (session:call-parts self page #!key (parts 'both))
  (sdat-set-curr-page! self page)
  (session:log self "page-dir-style: " (sdat-get-page-dir-style self))
  (let* ((dir-style    (sdat-get-page-dir-style self));; (equal? (sdat-get-page-dir-style self) "onedir")) ;; flag #t for onedir, #f for old style
	 (dir          (string-append (sdat-get-sroot self) 
				      (if dir-style 
					  (conc "/pages/")
					  (conc "/pages/" page)))))
    (case dir-style
      ;; NB// Stored always loads both control and view








<








604
605
606
607
608
609
610

611
612
613
614
615
616
617

;;  'dir      => directory tree pages/<pagename>/{view,control}.scm
;; parts:
;;  'both     => load control and view (anything other than view or control
;;  'view     => load view only
;;  'control  => load control only
(define (session:call-parts self page #!key (parts 'both))
  (sdat-set-curr-page! self page)

  (let* ((dir-style    (sdat-get-page-dir-style self));; (equal? (sdat-get-page-dir-style self) "onedir")) ;; flag #t for onedir, #f for old style
	 (dir          (string-append (sdat-get-sroot self) 
				      (if dir-style 
					  (conc "/pages/")
					  (conc "/pages/" page)))))
    (case dir-style
      ;; NB// Stored always loads both control and view
︙︙