whitespace and comments
1 files changed, 3 insertions(+), 3 deletions(-)

M wispwot/wispwot.w
M wispwot/wispwot.w +3 -3
@@ 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