bootstrap
view genesis/church/prolog/prolog-interpreter-test.church @ 616:723871f2f056
comment out more debug statements
fix up interpreter-test
fix up interpreter-test
| author | John Leuner <jewel@subvert-the-dominant-paradigm.net> |
|---|---|
| date | Sun Nov 22 12:55:44 2009 +0200 (2009-11-22) |
| parents | aafd4536e2b5 |
| children |
line source
1 main args
2 (church-init-matcher-compiler)
3 (init-prolog)
4 pi = new 'prolog-interpreter
5 print (second args)
6 query = (church-read-from-string (second args))
7 print "query"
8 print query
9 run-query-with-file pi query (third args) (fn result
10 show-prolog-solutions (variables-in query) result
11 )
13 church-read-from-string str
14 delistify (ometa-parse-array (coerce str 'array) 'church-parser 'quoted-expression)