@@ 978,7 978,7 @@ define : update-ranks-and-scores-from-tr
test-equal : ' (1 11 #f 40)
let : : wotstate : add-trust-edge (load-testing-wotstate) "ONE" "ANTANS" 100
update-ranks-and-scores-from-trust-identity-edges! wotstate "ZERO" '(("ONE" . "ANTANS"))
- define id-to-index-map : make-id-to-index-map wotstate
+ define id-to-index-map : make-id-to-index-map wotstate
;; add known-identity entries for not yet known IDs
define ownid-index : find-index-create-if-needed! wotstate id-to-index-map ownid
define : update-edge edge
@@ 1347,8 1347,8 @@ define : write-store wispwot folder
. old-known-identities-file
rmdir temp-folder ;; must be empty now!
;; log-line "deleting backups"
- unless : equal? "/tmp/" tmp-foldername
- open-pipe* OPEN_READ "rm" "-r" tmp-foldername
+ unless : equal? "/tmp/" tmp-foldername ;; do not delete the system tmp.
+ open-pipe* OPEN_READ "rm" "-rf" tmp-foldername
define : wispwot-read-trustfile wotstate startfile