From 0a545a2dba751d7ca59b8044d21772da1d7e948e Mon Sep 17 00:00:00 2001 From: Itamar Ben Zaken Date: Wed, 18 Mar 2009 10:50:21 +0200 Subject: [PATCH] silenced some warnings --- src/sml/cg.sml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/sml/cg.sml b/src/sml/cg.sml index dd9f2de..3bafa57 100644 --- a/src/sml/cg.sml +++ b/src/sml/cg.sml @@ -72,7 +72,8 @@ end = struct | (Vector _) => "sc_vector" | (String _) => "sc_string" | (Number _) => "sc_number" - | (Char _) => "sc_char")) + | (Char _) => "sc_char" + | _ => raise Match (* just to silence the compiler *))) (* generate code for a single constant: data definition @@ -487,6 +488,7 @@ end = struct ) end | genExpr (Def (_,_)) absDepth = raise Match (* shouldn't be here *) + | genExpr (Set (_,_)) absDepth = raise Match (* shouldn't be here *) and genOrPreds _ [] absDepth = () | genOrPreds lblEndOr (p :: rest) absDepth = let -- 2.11.4.GIT