Commit dc843d19b7450b6c15c3269b0a45c2198010ed68 - cafeobj

* When applying rule, warning msg will be printed if match method is not yet computed. tswd 8 years ago

1 changed file(s) with 5 addition(s) and 4 deletion(s). Raw diff Collapse all Expand all

-4

chaos/cafein/rengine.lisp less more

319	319	;; first we find matching rewrite rule
320	320	(funcall (or (rule-first-match-method rule)
321	321	(progn
322		(with-output-chaos-warning ()
323		(format t "Internal, no 'matching-mehod' is assigned for:")
324		(print-next)
325		(print-axiom-brief rule))
	322	(when chaos-verbose
	323	(with-output-chaos-warning ()
	324	(format t "Internal, no 'matching-mehod' is assigned for:")
	325	(print-next)
	326	(print-axiom-brief rule)))
326	327	(compute-rule-method rule)
327	328	(rule-first-match-method rule)))
328	329	(rule-lhs rule)