From d104a0ad46aefd39acba2fa133d4b5afa76c540e Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 23 Jan 2020 13:39:34 -0500 Subject: [PATCH] Experiment with requiring cont for (set!) --- scheme/cyclone/cps-optimizations.sld | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index 34f27cb0..b60fe5ed 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -1091,8 +1091,11 @@ ((and (ast:lambda? (car exp)) (every (lambda (arg) - (or (not (prim-call? arg)) - (not (prim:cont? (car arg))))) + (and + (not (set!? arg)) + (or (not (prim-call? arg)) + (not (prim:cont? (car arg))) + ))) (cdr exp)) (every (lambda (param)