[gnunet-scheme] 160/324: enum: symbol->value: Return #f if the symbol doesn't exist.

[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 5708a5132bc5bd904ae0a6e744e98b8c419dbafb
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Tue Jul 20 11:37:13 2021 +0200

    enum: symbol->value: Return #f if the symbol doesn't exist.
    
    Actually, no user of 'symbol->value' relies on 'symbol->value'
    returning a #f in this case at the moment.
    
    * gnu/extractor/enum.scm
      (symbol->value): Fix it.
---
 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 1d4e4b7..e6d69e8 100644
--- a/gnu/extractor/enum.scm
+++ b/gnu/extractor/enum.scm
@@ -157,7 +157,7 @@
 or #f it doesn't exist."
       (let ((i (vector-index (compose (cute eq? s <>) value->symbol)
                             (enum-predefined-values enum))))
-       (vector-ref (enum-predefined-values enum) i)))
+       (and i (vector-ref (enum-predefined-values enum) i))))
 
     ;; Returned code is fast.
     (define-syntax symbol-value

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