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

[jlg at codespeak.net]

Author: jlg
Date: Mon Aug 13 19:25:43 2007
New Revision: 45639

Modified:
   pypy/dist/pypy/lang/scheme/object.py
Log:
2/4 translation warnings removed

Modified: pypy/dist/pypy/lang/scheme/object.py
==============================================================================
--- pypy/dist/pypy/lang/scheme/object.py	(original)
+++ pypy/dist/pypy/lang/scheme/object.py	Mon Aug 13 19:25:43 2007
@@ -1270,6 +1270,7 @@
                 lst = lst.cdr
 
         if w_cdr is not None:
+            assert isinstance(last_cons, W_Pair)
             last_cons.cdr = w_cdr
 
         return first_cons
@@ -1494,6 +1495,8 @@
             raise SchemeSyntaxError
 
         w_lambda = lst[0]
+        if not isinstance(w_lambda, W_Procedure):
+            raise SchemeSyntaxError
         cc = Continuation(ctx, ctx.cont_stack)
         return w_lambda.call_tr(ctx, W_Pair(cc, w_nil))