Differences From Artifact [05823356b4]:
- File configf.scm — part of check-in [aa38507212] at 2013-03-10 10:56:31 on branch dev — Moved reading of command line params out of routine that can be run remote (user: matt, size: 16831) [annotate] [blame] [check-ins using] [more...]
To Artifact [c9fe6d3ae6]:
- File configf.scm — part of check-in [fa512c78ed] at 2013-04-08 14:08:48 on branch development — Fixed -m, added conditional waiver propagation (user: mrwellan, size: 16870) [annotate] [blame] [check-ins using] [more...]
︙ | |||
237 238 239 240 241 242 243 244 245 246 247 248 249 250 | 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 | + + | #f (let ((match (assoc var sectdat))) (if match ;; (and match (list? match)(> (length match) 1)) (cadr match) #f)) )) #f)) (define configf:lookup config-lookup) (define (configf:section-vars cfgdat section) (let ((sectdat (hash-table-ref/default cfgdat section '()))) (if (null? sectdat) '() (map car sectdat)))) |
︙ |