[clean-list] program terminate...

[박 성빈]

module ex

import StdEnv

cmdLoop1 :: *File -> *File
cmdLoop1 f = fwrites (toString 123) f

cmdLoop2 :: *File -> *File
cmdLoop2 f
	# (b, i, f)	= freadi f
	= fwrites (toString i) f

Start :: *World -> *File
Start world
	# (f, w)	= stdio world
	= cmdLoop1 f // cmdLoop2 f

win98 + clean 2.1 

I compiled the code with "project options -> no return
type is on"

but if I use "cmdLoop1 f" in Start function then the
program is not terminated -> "press any key to
exit..."

cmdLoop1 is different cmdLoop2 ?

I am not native speaker of english...
My english is poor... I am sorry.

__________________________________________________
두 유 야후!?
스팸때문에 짜증나세요? 야후! 메일의 스팸 차단 기술로 메일을 보호합니다 
http://mail.yahoo.co.kr