Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /tests/trunk/bugs/tests.obsolete/bug860.sml
ViewVC logotype

View of /tests/trunk/bugs/tests.obsolete/bug860.sml

Parent Directory Parent Directory | Revision Log Revision Log

Revision 548 - (download) (annotate)
Tue Feb 29 16:38:11 2000 UTC (19 years, 4 months ago) by dbm
Original Path: sml/trunk/tests/bugs/tests/bug860.sml
File size: 373 byte(s)
Initial revision
(* bug860.sml *)
(* 860. exception Subscript raised while compiling curried functors *)

signature NUM =
  val n : int

functor LeftSection (structure A : NUM
		     functor BinOp (structure A : NUM)
				   (structure B : NUM) : NUM)
		     (structure B : NUM) : NUM =
  structure Result = BinOp (structure A = A)
			   (structure B = B)
  open Result

ViewVC Help
Powered by ViewVC 1.0.0