From 984ddc76dc68afa1be32028e9920dd79701fe6ab Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Tue, 27 Nov 2018 18:59:28 -0500 Subject: [PATCH] check for list before calling (length) --- scheme/cyclone/cps-optimizations.sld | 1 + 1 file changed, 1 insertion(+) diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld index 9820272f..8f40a413 100644 --- a/scheme/cyclone/cps-optimizations.sld +++ b/scheme/cyclone/cps-optimizations.sld @@ -1856,6 +1856,7 @@ ((ast:lambda? (car exp))) ((pair? (cdr exp))) ((not (cadr exp))) + ((list? (ast:lambda-args (car exp)))) (= 1 (length (ast:lambda-args (car exp)))) ;; Get information for continuation (loop-sym (car (ast:lambda-args (car exp))))