Welcome to the CHICKEN Scheme pasting service

######### test-case.scm

(import chicken scheme)

(use extras)

(include "script-that-uses-bindings.scm")


######### script-that-uses-bindings.scm

(use bindings)

(pp (bind (a b c) (list 1 2 3) (list c b a)))


######### notes

run with: csi -s test-case.scm
fails when test-case.scm uses 'include', works when it uses 'load' instead.

also works if test-case.scm includes (use bindings)

Error: during expansion of (dbind21 ...) - unbound variable: macro-helpers#seq-destruc

	Call history:

	<syntax>	  (##core#require-extension (bindings) #t)
	<syntax>	  (##core#begin (##core#begin (##core#begin (##sys#require (quote bindings))) (import bindings)) (##co......
	<syntax>	  (##core#begin (##core#begin (##sys#require (quote bindings))) (import bindings))
	<syntax>	  (##core#begin (##sys#require (quote bindings)))
	<syntax>	  (##sys#require (quote bindings))
	<syntax>	  (quote bindings)
	<syntax>	  (##core#quote bindings)
	<syntax>	  (import bindings)
	<syntax>	  (import scheme (only macro-helpers define-syntax-rule replace* seq-length seq-ref seq-tail bind-exce......
	<syntax>	  (import scheme (only chicken receive case-lambda define-values let-values make-parameter error signa......
	<syntax>	  (##core#undefined)
	<syntax>	  (##core#undefined)
	<syntax>	  (##core#undefined)
	<syntax>	  (##core#undefined)
	<syntax>	  (pp (bind (a b c) (list 1 2 3) (list c b a)))
	<syntax>	  (bind (a b c) (list 1 2 3) (list c b a))	<--

This problem occured with chicken 4.8.0.3 and bindings egg version 3.1.