[gnunet-scheme] 59/324: Fix value creation in integer->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 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.