From 1c82f0e74a34a32b7d760b5281238b59b4655e4e Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Mon, 24 Apr 2017 22:08:15 +0000 Subject: [PATCH] Add Scheme inlines to global inline list --- scheme/cyclone/cgen.sld | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld index 431b5566..c10f3651 100644 --- a/scheme/cyclone/cgen.sld +++ b/scheme/cyclone/cgen.sld @@ -878,8 +878,10 @@ ; ,(define-c->inline-var exp) ; ,(prim:udf? (define-c->inline-var exp)) ; )) - (if (and (lambda? body) - (prim:udf? (define-c->inline-var exp))) + (when (and (lambda? body) + (prim:udf? (define-c->inline-var exp))) + (add-global-inline + (define-c->inline-var exp)) (add-global (define-c->inline-var exp) #t ;; always a lambda