From 6da33671698db4dcf67282d1c9092dca413ab109 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 1 Nov 2018 18:24:43 -0400 Subject: [PATCH] Do not sequence prims that call into conts --- scheme/cyclone/cps-optimizations.sld | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index 086dd52b..2c0fedc0 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -1085,6 +1085,11 @@ )) ;; ;; Lambda with a parameter that is never used; sequence code instead to avoid lambda ((and (ast:lambda? (car exp)) + (every + (lambda (arg) + (or (not (prim-call? arg)) + (not (prim:cont? (car arg))))) + (cdr exp)) (every (lambda (param) (with-var param (lambda (var)