~ chicken-core (chicken-5) 6a10f63065cde5d80d6593501892adff6572d3d6

commit 6a10f63065cde5d80d6593501892adff6572d3d6
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Sun Sep 15 18:24:47 2019 +0200
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Sun Sep 15 18:24:47 2019 +0200

    Use db-get-list instead of (or (db-get ...) '()) in two remaining places

diff --git a/optimizer.scm b/optimizer.scm
index 5d80ad12..33debaab 100644
--- a/optimizer.scm
+++ b/optimizer.scm
@@ -1564,7 +1564,7 @@
       (let* ((params (node-parameters n))
 	     (argc (length (third params)))
 	     (klambdas '()) 
-	     (sites (or (db-get db fnvar 'call-sites) '()))
+	     (sites (db-get-list db fnvar 'call-sites))
 	     (ksites '()) )
 	(if (and (list? params) (= (length params) 4) (list? (caddr params)))
 	    (let ((id (car params))
@@ -1734,8 +1734,8 @@
 			       (svar (first (node-parameters val))))
 			   ;;XXX should we also accept "##core#direct_lambda" ?
 			   (and (eq? '##core#lambda (node-class sval))
-				(= (length (or (db-get db svar 'references) '()))
-				   (length (or (db-get db svar 'call-sites) '())))
+				(= (length (db-get-list db svar 'references))
+				   (length (db-get-list db svar 'call-sites)))
 				(memq svar e)
 				(user-lambda? sval))))
 		    ;; "(set! VAR (lambda ...))" - add to group