From 4eb122ed69549e97bf316cf2aee932897cb7ac25 Mon Sep 17 00:00:00 2001
From: Timotej Lazar <timotej.lazar@araneo.org>
Date: Wed, 17 Dec 2014 16:53:01 +0100
Subject: Quote predicate name for abolish/1

---
 prolog/engine.py | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/prolog/engine.py b/prolog/engine.py
index ea9b19a..8ad8bfa 100644
--- a/prolog/engine.py
+++ b/prolog/engine.py
@@ -284,13 +284,13 @@ class PrologEngine(object):
             name = Term()
             arity = Term()
             self.call('functor/3', [term, name, arity])
-            return '{}/{}'.format(name, arity)
+            return "'{}'/{}".format(name, arity)
 
         fid = PL_open_foreign_frame()
         clause = Term(clause)
         functor = main_functor(clause)
         # Check whether [clause] is a rule or a fact.
-        if functor == ':-/2':
+        if functor == "':-'/2":
             # [clause] is a rule, return the main functor for the head.
             head = Term()
             self.call('arg/3', [Term(1), clause, head])
-- 
cgit v1.2.1