Comment-out WIP code

This commit is contained in:
Justin Ethier 2017-03-20 18:56:52 -04:00
parent 4d2cef3782
commit e8c5a3415a

View file

@ -1185,22 +1185,22 @@
(difference fv (built-in-syms)))
(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))
;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