From 4dccb636e23ed962a4cc4491c3dbbadef624d90c Mon Sep 17 00:00:00 2001
From: Martin Baulig <martin@src.gnome.org>
Date: Sun, 5 Dec 1999 15:02:34 +0000
Subject: [PATCH] *** empty log message ***

---
 sysdeps/guile/guile.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/sysdeps/guile/guile.pl b/sysdeps/guile/guile.pl
index cee13c02..55d59fcc 100644
--- a/sysdeps/guile/guile.pl
+++ b/sysdeps/guile/guile.pl
@@ -173,7 +173,7 @@ sub make_output {
 	  (qq[, _LIBGTOP_TEMP_str%d], $temp_string_count);
       } else {
 	$call_param .= sprintf
-	  (qq[, %s (%s)], $typeinfo->{$type}->[1], $fields[$field]);
+	  (qq[, %s (%s)], $typeinfo->{$type}->[2], $fields[$field]);
       }
     }
   }
@@ -226,6 +226,9 @@ sub make_output {
   if ($retval eq 'retval') {
     $check_retval_code = sprintf
       (qq[\tif (retval < 0)\n\t\treturn SCM_BOOL_F;\n]);
+  } elsif ($retval =~ /^(array|pointer)\((.*)\)$/) {
+    $check_retval_code = sprintf
+      (qq[\tif (retval == NULL)\n\t\treturn SCM_BOOL_F;\n]);
   } else {
     $check_retval_code = '';
   }
@@ -265,7 +268,7 @@ sub make_output {
     } else {
       $make_array_code .= sprintf
 	(qq[\t\tscm_vector_set_x (smob_array, SCM_MAKINUM (i),\n\t\t\t\t  %s (retval [i]));\n],
-	 $typeinfo->{$array_type}->[0]);
+	 $typeinfo->{$array_type}->[1]);
     }
 
     $make_array_code .= "\t}\n\n";