mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-10 22:37:38 +02:00
Need to figure out how to compile cgen with Cyc_procedure
This commit is contained in:
parent
9d16dc9426
commit
6c20402e3a
1 changed files with 15 additions and 14 deletions
29
test2.scm
29
test2.scm
|
@ -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
|
||||||
|
|
Loading…
Add table
Reference in a new issue