The R Project SVN – R – Diff – /trunk/src/main/plotmath.c

 #define S_UNION		 200
 #define S_PRODUCT	 213
 #define S_RADICAL	 214
 #define S_SUM		 229
 #define S_INTEGRAL	 242
+#define S_ANGLELEFT	 225
 #define S_BRACKETLEFTTP	 233
 #define S_BRACKETLEFTBT	 235
+#define S_ANGLERIGHT	 241
 #define S_BRACKETRIGHTTP 249
 #define S_BRACKETRIGHTBT 251
 #define N_LIM		1001
 #define N_LIMINF	1002
     if (NameAtom(head)) {
 	if (NameMatch(head, "lfloor"))
 	    code = S_BRACKETLEFTBT;
 	else if (NameMatch(head, "rfloor"))
 	    code = S_BRACKETRIGHTBT;
-	if (NameMatch(head, "lceil"))
+	else if (NameMatch(head, "lceil"))
 	    code = S_BRACKETLEFTTP;
 	else if (NameMatch(head, "rceil"))
 	    code = S_BRACKETRIGHTTP;
+	else if (NameMatch(head, "langle"))
+	    code = S_ANGLELEFT;
+	else if (NameMatch(head, "rangle"))
+	    code = S_ANGLERIGHT;
+    }
     else if (StringAtom(head) && length(head) > 0) {
 	if (StringMatch(head, "|"))
 	    code = '|';
 	else if (StringMatch(head, "||"))  // historical anomaly

The R Project SVN R