the definition of power was fixed (Bug# 1704)

bvds · Mar 6, 2010 · 7ead1ba · 7ead1ba
1 parent c2a905c
commit 7ead1ba
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/KB/Ontology.cl b/KB/Ontology.cl
@@ -605,13 +605,15 @@
 		      (time ?time)))))
 
 ;; "the power supplied to ~a from ~a" (nlg ?b) (nlg ?agent 'at-time ?time)
-
 (def-qexp power (power ?b ?agent :time ?time)
   :symbol-base |P|     
   :short-name "power"	
   :units |W|
-  :new-english ((the) (allowed "instantaneous") "power" "supplied to" 
-		(the) ?agent (preferred "from") (time ?time)))
+  :new-english ((the) (allowed "instantaneous") "power" 
+		(preferred "supplied") 
+		(and (preferred (agent ?agent)) 
+		     (preferred (object ?b))
+		     (time ?time))))
 
 (def-qexp net-power (net-power ?b :time ?time)
   :units |W|

diff --git a/KB/work-energy.cl b/KB/work-energy.cl
@@ -732,7 +732,7 @@
   ( (define-var (spring-constant ?spring))
       (variable ?k-var  (spring-constant ?spring)) )
   :hint (
-	 (bottom-out (string "Define a spring constant variable using ~A."
+	 (bottom-out (string "Define a spring constant using ~A."
 			    (*text-tool* eval)
 			    ))
 	 ))