jdormit/sicp-logic
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix defrule definition

Browse Source
This commit is contained in:
Jeremy Dormitzer 2019-07-20 14:37:08 -04:00
parent ade32d5bb9
commit 8750b11812
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/sicp_logic/core.clj
View File

@ -42,11 +42,11 @@
"Adds a new rule to the database." "Adds a new rule to the database."
(db/add-rule db (query-syntax-process rule))) (db/add-rule db (query-syntax-process rule)))
(defmacro defrule [db conclusion body] (defmacro defrule! [db conclusion body]
"Convenience macro to add a new rule to the database. "Convenience macro to add a new rule to the database.
Usage: Usage example:
(defrule [grandparent ?x ?y] (defrule [grandparent ?x ?y]
(and [parent ?x ?z] (and [parent ?x ?z]
[parent ?z ?y]))" [parent ?z ?y]))"
`(add-rule! ~db (quote [conclusion body]))) `(add-rule! ~db (quote [~conclusion ~body])))