Mercurial > cortex

comparison org/sense.org @ 321:702b5c78c2de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gathered all the tests into (run-suite), which should make testing vastly easier.
author Robert McIntyre <rlm@mit.edu>
date Tue, 08 May 2012 08:22:19 -0500
parents 2c7fbcbd5ebb
children d37ccb6c888f
comparison
equal deleted inserted replaced
320:52de8a36edde 321:702b5c78c2de
374 of the special parent node." 374 of the special parent node."
375 [parent-name] 375 [parent-name]
376 (fn [#^Node creature] 376 (fn [#^Node creature]
377 (if-let [sense-node (.getChild creature parent-name)] 377 (if-let [sense-node (.getChild creature parent-name)]
378 (seq (.getChildren sense-node)) 378 (seq (.getChildren sense-node))
379 (do (println-repl "could not find" parent-name "node") [])))) 379 (do ;;(println-repl "could not find" parent-name "node")
380 []))))
380 381
381 (defn closest-node 382 (defn closest-node
382 "Return the physical node in creature which is closest to the given 383 "Return the physical node in creature which is closest to the given
383 node." 384 node."
384 [#^Node creature #^Node empty] 385 [#^Node creature #^Node empty]