~ chicken-core (chicken-5) 00a78166fab1a632afa0047f5f3f59036b508de4

commit 00a78166fab1a632afa0047f5f3f59036b508de4
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Wed May 27 17:34:15 2015 +1200
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Sat May 30 16:28:48 2015 +0200

    Fix invalid calls to `get` where `db-get` should be used
    
    Small optimizer.scm fixes after 50ee93d.
    
    Signed-off-by: Peter Bex <peter@more-magic.net>

diff --git a/optimizer.scm b/optimizer.scm
index 27002c7a..1d3a865f 100644
--- a/optimizer.scm
+++ b/optimizer.scm
@@ -1651,8 +1651,8 @@
 			       (svar (first (node-parameters val))))
 			   ;;XXX should we also accept "##core#direct_lambda" ?
 			   (and (eq? '##core#lambda (node-class sval))
-				(= (length (or (get db svar 'references) '()))
-				   (length (or (get db svar 'call-sites) '())))
+				(= (length (or (db-get db svar 'references) '()))
+				   (length (or (db-get db svar 'call-sites) '())))
 				(memq svar e)
 				(user-lambda? sval))))
 		    ;; "(set! VAR (lambda ...))" - add to group
@@ -1777,7 +1777,7 @@
 	 ;; modify call-sites to invoke dispatch loop instead
 	 (for-each
 	  (lambda (b)
-	    (let ((sites (get db (car b) 'call-sites)))
+	    (let ((sites (db-get db (car b) 'call-sites)))
 	      (for-each
 	       (lambda (site)
 		 (let* ((callnode (cdr site))