From 6aeedbce0ea4ca97c7a427c234438e88dd332993 Mon Sep 17 00:00:00 2001 From: justin Date: Wed, 6 Apr 2016 14:59:37 -0400 Subject: [PATCH] Added safety check --- scheme/cyclone/transforms.sld | 1 + 1 file changed, 1 insertion(+) diff --git a/scheme/cyclone/transforms.sld b/scheme/cyclone/transforms.sld index 9a59ec72..304cd611 100644 --- a/scheme/cyclone/transforms.sld +++ b/scheme/cyclone/transforms.sld @@ -1507,6 +1507,7 @@ ;(lambda->formals (car body)) (lambda->formals exp) ) + (> (length (lambda->formals exp)) 0) ;; TODO: don't do it if args are used in the body ;; this won't work if we have any num other than 1 arg (not (member