Need to figure out how to compile cgen with Cyc_procedure

This commit is contained in:
Justin Ethier 2015-07-05 22:58:09 -04:00
parent 9d16dc9426
commit 6c20402e3a

View file

@ -2,20 +2,21 @@
(scheme file) (scheme file)
(scheme write)) (scheme write))
;; TODO: C macros for funcall1, etc are not being generated even though entries are set (write 'Cyc_procedure)
;; in the vector. must be another problem inspecting the vector ??? ;;; TODO: C macros for funcall1, etc are not being generated even though entries are set
(write 'hello) ;;; in the vector. must be another problem inspecting the vector ???
(let loop ((i 10)) ;(write 'hello)
(if (zero? i) ;(let loop ((i 10))
(write 'done) ; (if (zero? i)
(loop (- i 1)))) ; (write 'done)
; (loop (- i 1))))
;
(write (command-line-arguments)) ;
;(write (command-line-arguments))
(write (when (lambda () #t) 'true)) ;
(write (when (lambda () #f) 'false)) ;(write (when (lambda () #t) 'true))
;(write (when (lambda () #f) 'false))
;
;; Need to fix this up at some point: ;; Need to fix this up at some point:
;; ;;
;; Lambda application is broken with pure varargs ;; Lambda application is broken with pure varargs