#!/bin/sh
GUILE_AUTO_COMPILE=0
guile-config --version
LD_LIBRARY_PATH=$(guile-config info libdir)
export PKG_CONFIG_PATH GUILE_AUTO_COMPILE LD_LIBRARY_PATH
echo "LD_LIBRARY_PATH=$LD_LIBRARY_PATH"
exec "./test" -s $0 "$@"
!#

(define b (make-box))
(format #t "b = ~a\n" b)
(box-set! b '(list of values))
(format #t "b = ~a\n" b)
(format #t "(box-ref b) = ~a\n" (box-ref b))

(do ((i 0 (1+ i)) (result #f)) ((> i 40000) result)
  (let ((box (make-box))
		)
	'()
	))

;; Local Variables:
;; mode: scheme				  
;; tab-width: 4
;; End: