From 0bb80078486ec988874053c45e4e49ce8d28fb87 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Fri, 13 May 2016 23:14:58 -0400 Subject: [PATCH] (simple-lambda?) fixes --- scheme/cyclone/optimize-cps.sld | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/scheme/cyclone/optimize-cps.sld b/scheme/cyclone/optimize-cps.sld index 0a91a2ec..dbee0d16 100644 --- a/scheme/cyclone/optimize-cps.sld +++ b/scheme/cyclone/optimize-cps.sld @@ -189,6 +189,7 @@ (define (loop ref-by-ids) (cond ((null? ref-by-ids) #f) + ((not (pair? ref-by-ids)) #f) (else (let ((ref (car ref-by-ids))) (if (and (number? ref) (not (= owner-id ref))) @@ -212,12 +213,15 @@ (let ((body (ast:lambda-body ast)) (formals (ast:lambda-formals->list ast)) (id (ast:lambda-id ast))) + (if (pair? body) + (set! body (car body))) ;(trace:error `(simple-lambda? ,id ,formals ;,(and (pair? body) ; (app? body) ; (ast:lambda? (car body))) ;,(length formals) -;,body)) +;;,body +;)) (and (pair? body) (app? body) (ast:lambda? (car body))