use curie->properties to get curie name to avoid dict-get failed error

webyrd · Aug 23, 2024 · ac11e61 · ac11e61
1 parent 288f801
commit ac11e61
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/contrib/medikanren2/neo/utils.rkt b/contrib/medikanren2/neo/utils.rkt
@@ -45,7 +45,7 @@
   (get-descendent-curies*-in-db
    (curies->synonyms-in-db curie-list)))
 
-(define (concept->name curie)
+#;(define (concept->name curie)
   (let ((id-name-val
          (remove-duplicates (filter (lambda (cl)
                                       (and (equal? (car cl) curie)
@@ -55,6 +55,10 @@
             curie
             (caddar id-name-val))))
 
+(define (concept->name curie)
+  (let ((name (assoc "name" (curie->properties curie))))
+    (if name (cdr name) curie)))
+
 (define (concept->category curie)
   (let ((category (assoc "category" (curie->properties curie))))
     (if category (cdr category) '())))