20 lines
350 B
Scheme
20 lines
350 B
Scheme
(load "lib/syntax.rls")
|
|
|
|
(define d (f))
|
|
(define-values (a b c) (values 4 d 6))
|
|
(define (f) 9)
|
|
|
|
(define x (make-parameter #f))
|
|
|
|
(parameterize ([x 7])
|
|
(display (x))
|
|
(posix-write 1 "\n"))
|
|
|
|
(letrec iter ([i 0])
|
|
(unless (fix>= i 10)
|
|
(display (list a b c i))
|
|
(posix-write 1 "\n")
|
|
(iter (fix+ i 1))))
|
|
|
|
; vim:set syntax=scheme sw=2 expandtab:
|