Help with functor not running/illegal use of nesting operator

[Spainardzap]

I am having trouble making this run:

code:
functor
export generic:Generic
define
fun {Generic Op InitVal N}
if N == 0 then InitVal
else {Op N {Generic Op InitVal (N-1)}}
end
end
end

error:
%************************* expansion error **********************
%**
%** illegal use of nesting marker
%**
%** in file "Oz", line 2, column 0
%** ------------------ rejected (1 error)

[layus]

I guess you are missing the -c flag to ozc, right ?

[h7x4]

This is still an issue. It seems like the parser expects every functor to be bound to a name, which doesn't allow for unnamed top-level functors to exist.
It doesn't even get past the parser stage, where it tries to insert an implicit nesting marker.

mozart2/lib/compiler/Parser.oz

Lines 251 to 253 in cb42466

	context('functor definition' [pB 'functor' exprOrImplDollar star(funcDescr) 'end' pE])#fun{$ [P1 _ S Ds _ P2]}
	fFunctor(S Ds {MkPos P1 P2})
	end