Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 13:05:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

(simple-lambda?) fixes

Browse source
This commit is contained in:
Justin Ethier 2016-05-13 23:14:58 -04:00
parent 3df66cfa6d
commit 0bb8007848
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/cyclone/optimize-cps.sld
View file

@ -189,6 +189,7 @@
(define (loop ref-by-ids) (define (loop ref-by-ids)
(cond (cond
((null? ref-by-ids) #f) ((null? ref-by-ids) #f)
((not (pair? ref-by-ids)) #f)
(else (else
(let ((ref (car ref-by-ids))) (let ((ref (car ref-by-ids)))
(if (and (number? ref) (not (= owner-id ref))) (if (and (number? ref) (not (= owner-id ref)))
@ -212,12 +213,15 @@
(let ((body (ast:lambda-body ast)) (let ((body (ast:lambda-body ast))
(formals (ast:lambda-formals->list ast)) (formals (ast:lambda-formals->list ast))
(id (ast:lambda-id ast))) (id (ast:lambda-id ast)))
(if (pair? body)
(set! body (car body)))
;(trace:error `(simple-lambda? ,id ,formals ;(trace:error `(simple-lambda? ,id ,formals
;,(and (pair? body) ;,(and (pair? body)
; (app? body) ; (app? body)
; (ast:lambda? (car body))) ; (ast:lambda? (car body)))
;,(length formals) ;,(length formals)
;,body)) ;;,body
;))
(and (pair? body) (and (pair? body)
(app? body) (app? body)
(ast:lambda? (car body)) (ast:lambda? (car body))