[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Chicken-hackers] [PATCH] Fix invalid calls to `get` where `db-get` shou
From: |
Evan Hanson |
Subject: |
[Chicken-hackers] [PATCH] Fix invalid calls to `get` where `db-get` should be used |
Date: |
Wed, 27 May 2015 17:34:15 +1200 |
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
- [Chicken-hackers] [PATCH] Fix invalid calls to `get` where `db-get` should be used,
Evan Hanson <=