[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[gnunet-scheme] 59/324: Fix value creation in integer->value
From: |
gnunet |
Subject: |
[gnunet-scheme] 59/324: Fix value creation in integer->value |
Date: |
Tue, 21 Sep 2021 13:21:39 +0200 |
This is an automated email from the git hooks/post-receive script.
maxime-devos pushed a commit to branch master
in repository gnunet-scheme.
commit 661da0a6906f98818db07e3468ebd5e17237556f
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Fri Jan 29 21:50:19 2021 +0100
Fix value creation in integer->value
Fixes: https://notabug.org/mdevos/scheme-gnunet/issues/1
* gnu/extractor/enum (integer->value): include the
thunked enumeration type. Also, correct bounds check.
---
gnu/extractor/enum.scm | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/gnu/extractor/enum.scm b/gnu/extractor/enum.scm
index 0f0498c..5e9dd19 100644
--- a/gnu/extractor/enum.scm
+++ b/gnu/extractor/enum.scm
@@ -144,9 +144,10 @@
(assert (and (exact? i) (integer? i)))
(assert (<= 0 i))
(assert (< i (enum-max-value enum)))
- (if (< i (enum-max-value enum))
- (vector-ref (enum-predefined-values enum) i)
- (%make-value i #f #t #f #f #f)))
+ (let ((predef (enum-predefined-values enum)))
+ (if (< i (vector-length predef))
+ (vector-ref predef i)
+ (%make-value i #f #t #f (lambda () enum) #f))))
;; Slow
(define (symbol->value enum s)
--
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.
- [gnunet-scheme] 46/324: scripts: download-store: parse input arguments, (continued)
- [gnunet-scheme] 46/324: scripts: download-store: parse input arguments, gnunet, 2021/09/21
- [gnunet-scheme] 42/324: scripts: publish-store: export some procedures, gnunet, 2021/09/21
- [gnunet-scheme] 44/324: doc: document publish-store.scm, gnunet, 2021/09/21
- [gnunet-scheme] 53/324: doc: add a section on Guix in the roadmap, gnunet, 2021/09/21
- [gnunet-scheme] 51/324: scripts: publish-store: add option for printing generated JSON, gnunet, 2021/09/21
- [gnunet-scheme] 52/324: scripts: download-store: add downloading procedure, gnunet, 2021/09/21
- [gnunet-scheme] 47/324: scripts: publish-store: don't index temporary files, gnunet, 2021/09/21
- [gnunet-scheme] 50/324: scripts: download-store: (partially) validate entries, gnunet, 2021/09/21
- [gnunet-scheme] 49/324: scripts: publish-store: correct file name creation, gnunet, 2021/09/21
- [gnunet-scheme] 57/324: mq: define priority and preference values, gnunet, 2021/09/21
- [gnunet-scheme] 59/324: Fix value creation in integer->value,
gnunet <=
- [gnunet-scheme] 54/324: Add missing dependency ‘guix-stuff.scm’, gnunet, 2021/09/21
- [gnunet-scheme] 62/324: Change e-mail address, gnunet, 2021/09/21
- [gnunet-scheme] 58/324: scripts: publish-store: use SRFI-39 parameters for configuration, gnunet, 2021/09/21
- [gnunet-scheme] 61/324: Write code for message handlers, gnunet, 2021/09/21
- [gnunet-scheme] 55/324: enum: implement docstrings and general niceness, gnunet, 2021/09/21
- [gnunet-scheme] 56/324: Define many GNUnet message types., gnunet, 2021/09/21
- [gnunet-scheme] 69/324: doc: Update ROADMAP with steps to do, gnunet, 2021/09/21
- [gnunet-scheme] 63/324: Define message envelope type and procedures., gnunet, 2021/09/21
- [gnunet-scheme] 73/324: concurrency: implement an ‘update stream’, gnunet, 2021/09/21
- [gnunet-scheme] 81/324: nse: define network structures., gnunet, 2021/09/21