 		("\\(arg\\|copy_term\\|functor\\)\\([(]\\)" 1 'logtalk-built-in-predicate-face)
 		("=\\.\\." . 'logtalk-built-in-predicate-face)
 		;;
+		;; arithemtic evaluation:
+		;;
+		("\\<\\is\\>" . 'logtalk-built-in-predicate-face)
+		;;
+		;; arithemtic comparison:
+		("=:=\\|@\\(?:=<\\|>=\\|[<>]\\)\\|\\\\==" . 'logtalk-built-in-predicate-face)
+		;;
 		;; term unification:
 		;;
 		("\\\\?=" . 'logtalk-built-in-predicate-face)
-		;;
-		;; arithemtic evaluation:
-		;;
-		("\\<\\is\\>" . 'logtalk-built-in-predicate-face)
-		;;
-		;; arithemtic comparison:
-		("\\<\\=\\(?::=\\|[<\\]\\)\\|>=\\|[<>]\\>" . 'logtalk-built-in-predicate-face)
 		;;
 		;; evaluable functors:
 		;;


;; setup 

(defvar logtalk-mode-version "0.1"
	"Logtalk mode version number")

(defvar logtalk-mode-hook nil)

		;; other arithemtic functors:
		;;
		("\\(atan\\|cos\\|exp\\|log\\|s\\(?:in\\|qrt\\)\\)\\([(]\\)" 1 'logtalk-built-in-predicate-face)
		("\\*\\*" 1 'logtalk-built-in-predicate-face)
		;;
		;; stream selection and control:
		;;
