| Commit message (Collapse) | Author | Age |
|---|
| | |
|
| |
|
|
|
| |
A rather peculiar procedure, but "needed" to implement order of
operations on a flat list.
|
| |
|
|
| |
It has its uses, but like others, its extra weight.
|
| |
|
|
|
|
| |
->str as an alias of ->string is removed. ->string is however left.
->quoted-string was always weird, and was only used once.
|
| | |
|
| | |
|
| | |
|
| |
|
|
|
|
| |
While it was nice, the most important part was the multi-valued let from
srfi-71 (which is implemented in srfi-71)). The minor pattern matching
structures could often be replaced with car+cdr, or a propper match.
|
| | |
|
| | |
|
| | |
|
| | |
|
| |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
While not necessary, since we barely use UUID:s, it's still WAY faster,
and nice to not depend on the system providing `uuidgen'.
For comparison, number of UUID:s generated by different settups in 1
second:
65.000 :: guile native
700 :: guile shell-out
3.500.000 :: c native
100.000 :: libuuid - guile bindings
650.000 :: libuuid
Tests where run with either
(call-with-time-limit
1
(lambda ()
(let loop ()
(uuid)
(set! count (1+ count))
(loop)))
(lambda _ (display count)))
or
volatile unsigned long long count = 0;
sigaction(SIGALARM, ...);
alarm(1);
for (;;) {
uuid();
count++;
}
(let ((count 0))
(call-with-time-limit
1
(lambda ()
(let loop ()
((@ (hnh util) uuidgen))
(set! count (1+ count))
(loop)))
(lambda _ (format #t "exec count = ~:d~%" count))))
|
| | |
|
| | |
|
| |
|
|
|
| |
It was only used in one module, and provided litle clarity over a simple
set of define statementns.
|
| | |
|
|
|
This is the first (major) step in splitting the generally useful items
into its own library.
|
