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

WIP

Browse source
This commit is contained in:
Justin Ethier 2017-03-20 18:55:53 -04:00
parent ca68ab358a
commit 4d2cef3782
1 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
scheme/cyclone/transforms.sld
View file

@ -1185,6 +1185,23 @@
(difference fv (built-in-syms))) (difference fv (built-in-syms)))
(list)))))) (list))))))
TODO: upgrade applicable function calls to inlinable primitives
first case is char=? => Cyc-fast-char-eq (and rest of the family)
(define (inline-applicable-funcs expr)
(define (conv ast)
(cond
((define? ast)
`(define ,@(map (lambda (a) (conv a)) (cdr ast))))
((set!? ast)
`(set! ,@(map (lambda (a) (conv a)) (cdr ast))))
((if? ast)
TODO
((lambda? ast)
((app? ast)
(else
ast)))
(conv expr))
;; ;;
;; Helpers to syntax check primitive calls ;; Helpers to syntax check primitive calls
;; ;;