[writing to files] Error: set-output-port: needs 1 argument(s)

["kkwweett" <kkwweett@xxxxxxxxxx>]

Hi,
Can someone tell me why this script works perfectly well with
Windows:MIT/GNU-Scheme and fails on Windows:Gimp2.4/TinyScheme ?

It should create a file (whose name is given as an argument) which
looks like this :

____________ beginning of the file having 4096 lines______
0 0 
0 0.8 
0 1.6 
0 2.4 
0 3.2 
0 4 
0 4.8 
0 5.6 
0 6.4
.
.
.

0 44.8 
0 45.6 
0 46.4 
0 47.2 
0 48 
0 48.8 
0 49.6 
0 50.4 
0.8 0 
0.8 0.8 
0.8 1.6 
0.8 2.4 
0.8 3.2 
0.8 4 
.
.
.
...
.
.
.
50.4 42.4 
50.4 43.2 
50.4 44. 
50.4 44.8 
50.4 45.6 
50.4 46.4 
50.4 47.2 
50.4 48. 
50.4 48.8 
50.4 49.6 
50.4 50.4 
______________end of the file_________

for the argument inPas given equal to 8.


Instead, with Gimp2.4, there always is an error and my file ends too
soon :


_______beginning of the file having far less than 4096 lines______
0 0 
0 0.8 
0 1.6 
0 2.4 
0 3.2 
0 4 
0 4.8 
0 5.6 
0 6.4
.
.
.
11.2 32.8 
11.2 33.6 
11.2 34.4 
11.2 35.2 
11.2 36 
11.2 36.8 
11.2 37.6 
11.2 Error: set-output-port: needs 1 argument(s) 
______________end of the file_________


My script uses 4 procedures : 1 main and 3 auxiliary procedures (on
Gimp as on MIT):

;; the construct-list procedure which increments the first number :

(define (construct-list row height width pas port)
	(cond
		((< row height)
			(construct-list (+ row pas) height width pas (construct-list-col (/
 row 10.0) 0 width pas port))
		)
		(else port)
	)
)


;; the construct-list-col procedure which increments the second number :

(define (construct-list-col x col width pas port)
	(cond
		((< col width)
			(element->port  x  port) 
			(element->port  (/ col 10.0) port) 
			(newline port)
			(construct-list-col x (+ col pas) width pas port)
		)
		(else port)
	)
)


;;the element->port procedure which actually writes to the file

(define (element->port x port)
	(if (number? x)
		(begin
			(write  x port)
			(write-char #\space port)
		)
	)
)
	
;; the main procedure

(define 
	(script-fu-exp-medit 
		inFileName
		inPas
	)
	(define (subscript tour p)
		(cond
			((= tour 0)
				(subscript 
					1 
					(construct-list 
						0  	; row
						512	;heigt
						512	;width
						inPas 
						p
					)
				)
			)
			(else 
				(close-output-port p)
			)
		)
	)
	(subscript 0  (open-output-file inFileName))
)

on MIT/GNU Scheme, I call :

(script-fu-exp-medit "the-name-of-a-file" 8)

on Gimp2.4/TinyScheme, I use :


(script-fu-register
          "script-fu-exp-medit"                  ;func name
          "Export Medit"                         ;menu label
          "Exports the current image layer as a Medit file."         
    ;description
          "My Name"                             ;author
          "copyright 2008, My Name"             ;copyright notice
          "Mars 6, 2008"                            ;date created
          "RGB*"					;image type that the script works on
          SF-FILENAME      "Fichier en sortie "     
"C:\\gimp-2.4\\production\\remplir_Ici" ;a string variable
	  SF-ADJUSTMENT "taille du pas" '(8 1 256 1 10 0 1)
)
(script-fu-menu-register "script-fu-exp-medit" 
"Somewhere"
)

Any ideas?

Thank you for reading and sorry for the long post.