[Chicken-hackers] [PATCH] Fix invalid calls to `get` where `db-get` should be used

[Evan Hanson]

Small optimizer.scm fixes after 50ee93d.
---
 optimizer.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/optimizer.scm b/optimizer.scm
index 27002c7..1d3a865 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))
-- 
2.1.4