> (dotimes n 5 (println n))
0
1
2
3
4

> (dolist x (list 1 2 3 4 5) (println x))
1
2
3
4
5
>

> (dolist f (directory-files "/") (println f))
lost+found
initrd.img
bin
cdrom
initrd.img.old
root
opt
vmlinuz.old
lib
mnt
local.cfg
run
...

(define-macro (bind-form form param  sepxp)
  (cond
   ((pair? form)  `(let*
                       (
                        ($ ,param)
                        (,(car form) (car $))
                        (,(cdr form) (cdr $))
                        )
                     ,sepxp
                     ))

   ))
   ;; End of bind-form

>
(map
 (fn (p) (bind-form (x . y) p (+ x y)))
 '((1 . 2) (3 . 4) (6 . 8) (10 . 5))
)
(3 7 14 15)
>

(defn my-map (f xs)
  (if (empty? xs)
      '()
      (bind-form (hd . tl) xs
                 (cons (f hd) (my-map f tl))
                 )))

> (my-map inc '(1  2 3 4 5 6))
(2 3 4 5 6 7)

> (letc
   (a 10
    b (+ a 10)
    c (* a b)
    )
   (+ a b c))
230
>

(include "ffi-tools.scm")

(define add-test
  (c-lambda
   (int int)
   int
   "
   ___result = ___arg1 + ___arg2;
   "
   ))

;;(c-declare "#include <stdlib.h>")
;;
(def-Cfunc cbrt
            "cbrt"
            (double)
            double
            )

;;;  int gethostname(char *name, size_t len);
(def-Cfunc gethostname
            "gethostname"
            ((pointer char #f) unsigned-int)
            int
            )

(define (get-hostname2)
  (with-malloc (s 64)
               (gethostname s 64)
               (ptr->string s)
               ))

(def-Cfunc-code  get-hostname
                  ()
                  char-string
                  "
                  char hostname [64];
                  gethostname(hostname, 64);
                  ___result = hostname ;
                  "
                  )

(def-Cfunc cbrt
            "cbrt"
            (double)
            double
            )