From a6eafa786908c0627b786cf9e8846c711278ed74 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 10 Nov 2016 18:45:34 +0000
Subject: [PATCH] Experimental code

---
 scheme/cyclone/cps-optimizations.sld | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index 1d2f67e1..a4b4f6eb 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -644,8 +644,17 @@
     (define (inline-prim-call? exp ivars args)
       (call/cc
         (lambda (return)
+;; TODO:
+;; experimenting with switching inline-ok? with code using data from analysis DB
           ;(trace:error `(inline-ok? ,exp ,ivars ,args))
-          (inline-ok? exp ivars args (list #f) return)
+          ;(inline-ok? exp ivars args (list #f) return)
+          (for-each
+            (lambda (v)
+              (with-var v (lambda (var)
+                (if (not (adbv:inlinable var))
+                    (return #f)))))
+            ivars)
+;; End experimental code
           (return #t))))
 
     ;; Make sure inlining a primitive call will not cause out-of-order execution