Megatest

Check-in [272a1664b9]
Login
Overview
Comment:Removed debug noise
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.61
Files: files | file ages | folders
SHA1: 272a1664b9cc4f8eff8b24caa89974aabf25e62e
User & Date: mrwellan on 2016-08-18 08:58:04
Other Links: branch diff | manifest | tags
Context
2016-08-18
08:59
Bumped version check-in: 3e88884f89 user: mrwellan tags: v1.61, v1.6103
08:58
Removed debug noise check-in: 272a1664b9 user: mrwellan tags: v1.61
2016-08-17
22:32
Backpatched portions of 884bf that work check-in: db8d91f01b user: matt tags: v1.61
Changes

Modified dashboard.scm from [d9f190985d] to [8d6f49c706].

1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
			       (run-id    (tree-path->run-id tabdat (cdr run-path))))
			  (dboard:tabdat-target-set! tabdat (cdr run-path)) ;; (print "run-path: " run-path)			    
			  (dboard:tabdat-layout-update-ok-set! tabdat #f)
			  (if (number? run-id)
			      (begin
				(dboard:tabdat-curr-run-id-set! tabdat run-id)
				(dboard:tabdat-view-changed-set! tabdat #t))
			      (debug:print-error 0 *default-log-port* "tree-path->run-id returned non-number " run-id))))
		      "treebox"))
		   ;; (print "path: " (tree:node->path obj id) " run-id: " run-id)
		   )))
    (dboard:tabdat-runs-tree-set! tabdat tb)
    tb))

;;======================================================================







|







1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
			       (run-id    (tree-path->run-id tabdat (cdr run-path))))
			  (dboard:tabdat-target-set! tabdat (cdr run-path)) ;; (print "run-path: " run-path)			    
			  (dboard:tabdat-layout-update-ok-set! tabdat #f)
			  (if (number? run-id)
			      (begin
				(dboard:tabdat-curr-run-id-set! tabdat run-id)
				(dboard:tabdat-view-changed-set! tabdat #t))
			      (debug:print-error 5 *default-log-port* "tree-path->run-id returned non-number " run-id))))
		      "treebox"))
		   ;; (print "path: " (tree:node->path obj id) " run-id: " run-id)
		   )))
    (dboard:tabdat-runs-tree-set! tabdat tb)
    tb))

;;======================================================================