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

Comment-out WIP code

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

32
scheme/cyclone/transforms.sld
View file

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