dep fix for racket

eavdb/entity-get.ss

@@ -33,12 +33,6 @@
                    "select * from " table "_entity where unique_id = ?")
                unique-id))))
 
-(define (get-entity-type db table entity-id)
-  (select-first
-   db (string-append
-       "select entity_type from " table "_entity where entity_id = ?")
-       entity-id))
-
 (define (get-all-entity-types db table)
   (cdr (db-select db (string-append "select distinct entity_type from " table "_entity;"))))
 

eavdb/entity-insert.ss

@@ -38,6 +38,12 @@
     (insert-entity-wholesale db table entity-type uid 1 0 ktvlist)
     uid))
 
+(define (get-entity-type db table entity-id)
+  (select-first
+   db (string-append
+       "select entity_type from " table "_entity where entity_id = ?")
+       entity-id))
+
 ;; used for the app preferences
 (define (insert-entity-if-not-exists db table entity-type user entity-id ktvlist)
   (let ((found (get-entity-type db table entity-id)))