Since we don't use closures as pairs in the stack anymore, the

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

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

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