Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-16 17:27:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Handle + and * without any args

Browse source
This commit is contained in:
Justin Ethier 2016-11-23 17:48:21 -05:00
parent 17be2dc09a
commit 20a73cac64
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
scheme/cyclone/transforms.sld
View file

@ -1062,10 +1062,16 @@
(cons (car ast) (cons (car ast)
(map (lambda (a) (convert a renamed)) (map (lambda (a) (convert a renamed))
(cdr ast))))) (cdr ast)))))
(if (precompute-prim-app? converted) (cond
converted ; TODO:(eval converted) ;; OK, evaluate at compile time ((and (equal? (car converted) '+) (= (length converted) 1))
0)
((and (equal? (car converted) '*) (= (length converted) 1))
1)
((precompute-prim-app? converted)
converted) ; TODO:(eval converted) ;; OK, evaluate at compile time
;converted))) ;; No, see if we can fast-convert it ;converted))) ;; No, see if we can fast-convert it
(prim:inline-convert-prim-call converted)))) ;; No, see if we can fast-convert it (else
(prim:inline-convert-prim-call converted))))) ;; No, see if we can fast-convert it
((lambda? ast) ((lambda? ast)
(let* ((args (lambda-formals->list ast)) (let* ((args (lambda-formals->list ast))
(ltype (lambda-formals-type ast)) (ltype (lambda-formals-type ast))