type specifiers

2024-05-31 16:40:04 -06:00
parent 2cce4f156d
commit c2eab01281
1 changed files with 2 additions and 2 deletions
--- a/src/bad_nlp/Motion.kiss
+++ b/src/bad_nlp/Motion.kiss
@@ -15,7 +15,7 @@
                    (dictSet motionVerbs line true)))
            (dictSet loadedVerbFiles "${ftl}.txt" true))))

-(function isMotionVerb [token]
+(function isMotionVerb [:String token]
    (let [token (Util.normalize token true)]
        (loadVerbsForToken token)
        (motionVerbs.exists token)))
@@ -28,7 +28,7 @@
                        "onto" "via" "between" "opposite" "with" "beyond" "out" "within" "by" "outside"]
            (dictSet prepositions prep true))))

-(function isPreposition [token]
+(function isPreposition [:String token]
    (loadPrepositions)
    (prepositions.exists (Util.normalize token true)))