k_john_gough_cp 12 年之前
父节点
当前提交
759e066e74
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      gpcp/ExprDesc.cp

+ 1 - 1
gpcp/ExprDesc.cp

@@ -942,7 +942,7 @@ MODULE ExprDesc;
           ELSE
           ELSE
             IF ~arg0.isIntExpr() THEN arg0.ExprError(37) END;
             IF ~arg0.isIntExpr() THEN arg0.ExprError(37) END;
             IF ~arg1.isIntExpr() THEN arg1.ExprError(37) END;
             IF ~arg1.isIntExpr() THEN arg1.ExprError(37) END;
-	   (* NO FOLDING IN THIS VERSION *)
+	   (* NO FOLDING IN THIS VERSION 
             IF (arg0.kind = numLt) & (arg1.kind = numLt) THEN
             IF (arg0.kind = numLt) & (arg1.kind = numLt) THEN
               rslt := mkNumLt(ASH(arg0(LeafX).value.int(),
               rslt := mkNumLt(ASH(arg0(LeafX).value.int(),
                 arg1(LeafX).value.int()));
                 arg1(LeafX).value.int()));