#!/bin/sh
# -*- scheme -*-
guile_config=/usr/bin/guile-config
LD_LIBRARY_PATH=$(${guile_config} info libdir)
export LD_LIBRARY_PATH
GUILE_AUTO_COMPILE=0
export GUILE_AUTO_COMPILE
exec "./test" -s $0 "$@"
!#

(format #t "version = ~a\n" (version))
(display "(\n[let begin] ----------------------------------------\n")
(let ((c1 (make-container "my.container.1" 2048))
	  (c2 (make-container "my.container.2" 2048))
	  (ch1 (make-child))
	  (ch2 (make-child))
	  )
  (format #t "ch1 = ~s\n" ch1)
  (format #t "ch2 = ~s\n" ch2)
  (container-set-child c1 ch1)
  (container-set-child c2 ch2)
  (format #t "c1 = ~s\n" c1)
  (format #t "c2 = ~s\n" c2)
  (gc)
  )
(display "[let end] ------------------------------------------\n)\n")
(display "\n+----------------------------------------------------+\n")
(display "|  What are the following mark functions called for? |\n")
(display "+----------------------------------------------------+\n")
(gc)

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