mes: assq-ref, assoc-ref: Support alist == #f.
authorJan Nieuwenhuizen <janneke@gnu.org>
Sat, 15 Dec 2018 11:56:15 +0000 (12:56 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Sat, 15 Dec 2018 11:56:15 +0000 (12:56 +0100)
* mes/module/mes/scm.mes (assq-ref): Support alist == #f.
(assoc-ref): Likewise.

mes/module/mes/scm.mes

index c4d78035b40b1cb0917ccce4101ec6566137b149..20243ff77a7e93d0cf1e57ac9a3d2aa775473dff 100644 (file)
           alist))))
 
 (define (assq-ref alist key)
-  (let ((entry (assq key alist)))
-    (if entry (cdr entry)
-        #f)))
+  (and alist
+       (let ((entry (assq key alist)))
+         (if entry (cdr entry)
+             #f))))
 
 (define assv assq)
 (define assv-ref assq-ref)
 
 (define (assoc-ref alist key)
-  (let ((entry (assoc key alist)))
-    (if entry (cdr entry)
-        #f)))
+  (and (pair? alist)
+       (let ((entry (assoc key alist)))
+         (if entry (cdr entry)
+             #f))))
 
 (define (assoc-set! alist key value)
   (let ((entry (assoc key alist)))