Networking is now an option (compile with -DNETWORKING).

[picobit.git] / tests / test-fixnums.scm

;; test for the new (0-255) fixnums

(define x 255)
(define (loop x)
  (if (> x 0)
      (begin ;  (print x)
             (loop (- x 1)))))
(loop x)