Index: gutils.scm
==================================================================
--- gutils.scm
+++ gutils.scm
@@ -22,10 +22,12 @@
 (import (prefix iup iup:))
 (use canvas-draw)
 
 (use srfi-1 regex regex-case srfi-69)
 (declare (unit gutils))
+
+;; NOTE: These functions will move to iuputils
 
 (define (gutils:colors-similar? color1 color2)
   (let* ((c1 (map string->number (string-split color1)))
 	 (c2 (map string->number (string-split color2)))
 	 (delta (map (lambda (a b)(abs (- a b))) c1 c2)))