brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Prepare error symbol.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-19 20:54:55 +01:00
parent 58c5a78829
commit dd8719f554
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
member-file.scm
View file

@ -41,6 +41,7 @@
(chicken io) (chicken io)
(chicken irregex) (chicken irregex)
(chicken format) (chicken format)
(chicken random)
dictionary dictionary
month month
period period
@ -66,6 +67,14 @@
(define *member-default-joined* (make-parameter (make-month 2015 1))) (define *member-default-joined* (make-parameter (make-month 2015 1)))
;; Symbol used for error reporting in member file keys.
(define member-file-error-symbol
(string->symbol
(sprintf "error-symbol-~A"
(substring
(number->string (pseudo-random-real))
2))))
;; Derived keys ;; Derived keys
(define start/stop-keys-keys (define start/stop-keys-keys
(map (map