mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-27 22:15:06 +02:00
20 lines
427 B
Scheme
20 lines
427 B
Scheme
(import (scheme base)
|
|
(scheme file)
|
|
(scheme write))
|
|
|
|
(let loop ((i 10))
|
|
(if (zero? i)
|
|
(write 'done)
|
|
(loop (- i 1))))
|
|
|
|
|
|
(write (when (lambda () #t) 'true))
|
|
(write (when (lambda () #f) 'false))
|
|
|
|
; Lambda application is broken with pure varargs
|
|
; TODO: once this works, add it to test suite!!!
|
|
((lambda test (write test)) 1 2 3 4)
|
|
|
|
;; This is OK
|
|
;(define test (lambda args args))
|
|
;(write (test 1 2 3 4))
|