From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: **
X-Spam-Status: No, score=2.6 required=5.0 tests=BAYES_20,INVALID_DATE,
	MSGID_SHORT,REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no
	version=3.4.4
Xref: utzoo comp.software-eng:3254 comp.lang.ada:3503 comp.lang.c:27072 comp.lang.fortran:2996 comp.lang.lisp:2955 comp.lang.misc:4533 comp.lang.modula2:2207 comp.lang.pascal:3250 comp.lang.scheme:1185
Path: utzoo!attcan!uunet!samsung!think!snorkelwacker!mit-eddie!mit-amt!mob
From: mob@mit-amt.MEDIA.MIT.EDU (Mario O. Bourgoin)
Newsgroups: comp.software-eng,comp.lang.ada,comp.lang.c,comp.lang.fortran,comp.lang.lisp,comp.lang.misc,comp.lang.modula2,comp.lang.pascal,comp.lang.scheme
Subject: Case statements: Error in my reply.
Message-ID: <1936@mit-amt.MEDIA.MIT.EDU>
Date: 20 Mar 90 16:02:59 GMT
References: <9003191549.AA01608@sn1987a.compass.com> <1925@mit-amt.MEDIA.MIT.EDU>
Reply-To: mob@media-lab.media.mit.edu (Mario O. Bourgoin)
Organization: MIT Media Lab, Cambridge MA
List-Id: <comp.lang.ada>

I apologize for having made an error in my reply's example.  I left
out the expression that evaluates to the selection key.  Here is the
correct code:

        (case-every n
		    (0
		     (1+ count))
		    ((0 1)
		     (1+ ocount))
		    ((0 1 2)
		     (writeln count ocount))
		    (else
		     (writeln "unknown n")))

--Mario