home
/
code
/
tt.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
a991df6
)
Simplify
author
Siraaj Khandkar
<siraaj@khandkar.net>
Thu, 12 Nov 2020 12:47:50 +0000
(07:47 -0500)
committer
Siraaj Khandkar
<siraaj@khandkar.net>
Thu, 12 Nov 2020 12:48:23 +0000
(07:48 -0500)
tt
patch
|
blob
|
blame
|
history
diff --git
a/tt
b/tt
index
45f4d56
..
2bbe402
100755
(executable)
--- a/
tt
+++ b/
tt
@@
-73,12
+73,9
@@
[(cons x xs) (begin
(thread-send thd (cons 'unit x))
(dispatch ws xs ys))])])))
[(cons x xs) (begin
(thread-send thd (cons 'unit x))
(dispatch ws xs ys))])])))
- (define workers
- (range 1 (add1 num_workers)))
- (define threads
- (map (λ (id) (thread (make-worker id f))) workers))
- (define results
- (dispatch workers xs '()))
+ (define workers (range num_workers))
+ (define threads (map (λ (id) (thread (make-worker id f))) workers))
+ (define results (dispatch workers xs '()))
(for-each thread-wait threads)
results)
(for-each thread-wait threads)
results)
@@
-203,7
+200,7
@@
(define user-agent
(let*
([prog-name "tt"]
(define user-agent
(let*
([prog-name "tt"]
- [prog-version "0.3.
2
"]
+ [prog-version "0.3.
3
"]
[prog-uri "https://github.com/xandkar/tt"]
[user-feed-file (expand-user-path "~/twtxt-me.txt")]
[user
[prog-uri "https://github.com/xandkar/tt"]
[user-feed-file (expand-user-path "~/twtxt-me.txt")]
[user
This page took
0.027041 seconds
and
4
git commands to generate.