[gnunet-scheme] 60/324: Allow using integer->value on maximal value

[gnunet]

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 a88c43989e47c4eae843c24181fac5c18affef17
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Fri Jan 29 22:30:53 2021 +0100

    Allow using integer->value on maximal value
    
    * gnu/extractor/enum.scm (integer->value): correct bounds
      check by using <= instead of <=
---
 gnu/extractor/enum.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gnu/extractor/enum.scm b/gnu/extractor/enum.scm
index 5e9dd19..ea87faf 100644
--- a/gnu/extractor/enum.scm
+++ b/gnu/extractor/enum.scm
@@ -143,7 +143,7 @@
     (define (integer->value enum i)
       (assert (and (exact? i) (integer? i)))
       (assert (<= 0 i))
-      (assert (< i (enum-max-value enum)))
+      (assert (<= i (enum-max-value enum)))
       (let ((predef (enum-predefined-values enum)))
        (if (< i (vector-length predef))
            (vector-ref predef i)

-- 
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.