Overview
Comment: | Remove short circuit for no homehost in common:get-homehost |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.7001-multi-db-nohome |
Files: | files | file ages | folders |
SHA1: |
760892c0d7a282c9eea6019d82a8f9cc |
User & Date: | matt on 2022-05-15 04:52:01 |
Other Links: | branch diff | manifest | tags |
Context
2022-05-15
| ||
05:06 | Merging the v1.7001-multi-db-nohome branch into single commit to rebase forward Closed-Leaf check-in: f5e182b504 user: matt tags: v1.7001-multi-db-nohome-for-rebase | |
04:52 | Remove short circuit for no homehost in common:get-homehost Closed-Leaf check-in: 760892c0d7 user: matt tags: v1.7001-multi-db-nohome | |
2022-05-09
| ||
19:43 | common:get-homehost returns '(#f . #f) if there is no homehost file. check-in: 4db396b0c0 user: matt tags: v1.7001-multi-db-nohome | |
Changes
Modified common.scm from [142d49dbae] to [3b9840f92c].
︙ | |||
1345 1346 1347 1348 1349 1350 1351 | 1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357 1358 1359 1360 1361 | - + - + | (mutex-unlock! *homehost-mutex*) (launch:setup) ;; safely mutexed now (if (> trynum 0) (begin (thread-sleep! 2) (common:get-homehost trynum: (- trynum 1))) `(#f . #f))) |
︙ | |||
1384 1385 1386 1387 1388 1389 1390 | 1384 1385 1386 1387 1388 1389 1390 1391 1392 1393 1394 1395 1396 1397 1398 | - + | (mutex-unlock! *homehost-mutex*) (car (common:get-homehost)))) `(#f . #f)))))) (at-home (or (equal? homehost currhost) (equal? homehost bestadrs)))) (set! *home-host* (cons homehost at-home)) (mutex-unlock! *homehost-mutex*) |
︙ |