suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

typo

Browse Source 
svn: r2830
This commit is contained in:
Eli Barzilay 2006-04-28 00:35:28 +00:00
parent 810e6c5d87
commit 1c412e58ad
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/version/tool.ss
View File

@ -103,13 +103,13 @@
(when (enabled? (preferences:get 'updates:enabled?)) (when (enabled? (preferences:get 'updates:enabled?))
(let ([top (wait-for-definitions)] (let ([top (wait-for-definitions)]
[cur (current-seconds)] [cur (current-seconds)]
[last 0 #;(preferences:get 'updates:last)] [last (preferences:get 'updates:last)]
[freq (preferences:get 'updates:frequency)]) [freq (preferences:get 'updates:frequency)])
(when (and (> (- cur last) freq) (when (and (> (- cur last) freq)
(show-message top (zero? last))) ; last=0 => first-time (show-message top (zero? last))) ; last=0 => first-time
(preferences:set 'updates:last cur) (preferences:set 'updates:last cur)
(check top) (check top)
(hide-message)))))) (hide-message)))))
(provide tool@) (provide tool@)
(define tool@ (define tool@