--- a/LLVMType.st	Sat Jul 11 10:03:12 2015 +0100
+++ b/LLVMType.st	Sat Jul 11 16:56:36 2015 +0100
@@ -131,3 +131,17 @@
     "Created: / 11-07-2015 / 07:08:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!LLVMType methodsFor:'testing'!
+
+isIntegerType
+    ^ self kind == LLVMIntegerTypeKind
+
+    "Created: / 11-07-2015 / 14:56:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isVectorType
+    ^ self kind == LLVMVectorTypeKind
+
+    "Created: / 11-07-2015 / 14:56:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+