multiple libraries

utils.rkt

@@ -23,6 +23,7 @@
          list-drop!
          path-equal?
          make-select-list
+         new-id
          )
 
 
@@ -159,4 +160,13 @@
                                   label))))))
        )
      items)
-    slct))
+    slct))
+
+
+(define (new-id)
+  (let* ((s (current-milliseconds))
+         (r (random 1000000))
+         (id (string->symbol (format "id-~a-~a" s r))))
+    id))
+
+