semantic_net.shen in shen-ruby-0.14.0

- old
+ new

@@ -1,9 +1,9 @@
 (define query  
   [is Object Concept] -> (if (belongs? Object Concept) yes no))
 
 (define belongs?  
-  Object Concept -> (element? Concept (fix spread-activation [Object])))
+  Object Concept -> (element? Concept (fix (function spread-activation) [Object])))
 
 (define spread-activation  
   [] -> [] 
   [Vertex | Vertices] -> (union (accessible-from Vertex)
                                 (spread-activation Vertices)))