move utilities to avoid circular dependency

(post-rebase issue)

symex-primitives.el

@@ -353,6 +353,22 @@ symexes, returns the end point of the last one found."
     (symex-lisp-select-nearest))
   (point))
 
+(defun symex--fix-leading-whitespace ()
+  "Fix leading whitespace."
+  ;; fix leading whitespace
+  (fixup-whitespace)
+  ;; fixup may move point into the whitespace - restore it
+  (when (looking-at-p "[[:space:]]")
+    (symex--go-to-next-non-whitespace-char)))
+
+(defun symex--fix-trailing-whitespace (count)
+  "Fix trailing whitespace."
+  (condition-case nil
+      (save-excursion
+        (symex-select-end count)
+        (fixup-whitespace))
+    (error nil)))
+
 (defun symex--primitive-exit ()
   "Take necessary actions as part of exiting Symex mode, at a primitive level."
   (symex--delete-overlay)

symex-utils.el

@@ -26,7 +26,6 @@
 ;;; Code:
 
 (require 'cl-lib)
-(require 'symex-primitives)
 
 (defun symex--current-line-empty-p ()
   "Check if the current line is empty.
@@ -216,22 +215,6 @@ preceding one as the accumulator. "
   (let ((latest (symex--kill-ring-pop)))
     (kill-append latest nil)))
 
-(defun symex--fix-leading-whitespace ()
-  "Fix leading whitespace."
-  ;; fix leading whitespace
-  (fixup-whitespace)
-  ;; fixup may move point into the whitespace - restore it
-  (when (looking-at-p "[[:space:]]")
-    (symex--go-to-next-non-whitespace-char)))
-
-(defun symex--fix-trailing-whitespace (count)
-  "Fix trailing whitespace."
-  (condition-case nil
-      (save-excursion
-        (symex-select-end count)
-        (fixup-whitespace))
-    (error nil)))
-
 
 (provide 'symex-utils)
 ;;; symex-utils.el ends here