[pypy-svn] r46054 - pypy/dist/pypy/lang/scheme

[jlg at codespeak.net]

Author: jlg
Date: Mon Aug 27 19:48:39 2007
New Revision: 46054

Modified:
   pypy/dist/pypy/lang/scheme/procedure.py
Log:
predicates have default predicate method raising NotImplementedError -> rpythonic

Modified: pypy/dist/pypy/lang/scheme/procedure.py
==============================================================================
--- pypy/dist/pypy/lang/scheme/procedure.py	(original)
+++ pypy/dist/pypy/lang/scheme/procedure.py	Mon Aug 27 19:48:39 2007
@@ -216,6 +216,9 @@
         (a, b) = lst
         return W_Boolean(self.predicate(a, b))
 
+    def predicate(self, a, b):
+        raise NotImplementedError
+
 class EqP(EquivalnecePredicate):
     _symbol_name = "eq?"
 
@@ -324,6 +327,9 @@
 
         return W_Boolean(self.predicate(lst[0]))
 
+    def predicate(self, w_obj):
+        raise NotImplementedError
+
 class BooleanP(TypePredicate):
     _symbol_name = "boolean?"