Fix double conversion of Scheme procedures.

belmarca · belmarca · commit a0805f7f5e1d · 2023-01-11T12:37:35.000-05:00
The `procedure-&gt;PyObject*/function` procedure already converts its
argumetn (`proc`) into a `SchemeObject`. We must not do it again in `python-SchemeProcedure`.
diff --git a/python.scm b/python.scm
@@ -3052,10 +3052,12 @@ end-of-c-declare
 (define python-exec
   (sfpc-send-recv (get-scheme-fpc-state!) (vector op-get-exec)))
 
+;; Create a _SchemeProcedure instance.
+;; obj is a SchemeObject that contains a pointer to a Scheme function.
 (define python-SchemeProcedure
   (let ((_SchemeProcedure (python-eval "foreign(_SchemeProcedure)")))
     (lambda (obj)
-      (PyObject_CallFunctionObjArgs1 _SchemeProcedure (object->SchemeObject obj)))))
+      (PyObject_CallFunctionObjArgs1 _SchemeProcedure obj))))
 
 ((python-eval "__import__('sys').path.append")
  (path-expand "site-packages" python-venv-lib-dir))
