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

Simplified example code for self-hosted compiler

Browse source
This commit is contained in:
Justin Ethier 2015-07-03 01:26:00 -04:00
parent 1615794d99
commit 392637fe2c
1 changed files with 12 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
test2.scm
View file

@ -2,17 +2,18 @@
(scheme file) (scheme file)
(scheme write)) (scheme write))
(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