git: 9front

Info  •  Files  •  Log  •  Branches

libaml: fix fault when the second operand of comparison cannot be converted

--- a/sys/src/libaml/aml.c

+++ b/sys/src/libaml/aml.c

@@ -1524,7 +1524,7 @@

 		tag = TAG(a);

 		if(b == nil || TAG(b) != tag)

 			b = copy(tag, b);

-		if(TAG(b) != tag)

+		if(b == nil || TAG(b) != tag)

 			return -1;	/* botch */

 		switch(tag){

 		default:

-- 

⑨