[comp.lang.scheme] Case statements: Error in my reply.

mob@mit-amt.MEDIA.MIT.EDU (Mario O. Bourgoin) (03/21/90)

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