* load.c (scm_primitive_load, scm_primitive_load_path),

(scm_sys_search_load_path): Corrected docstrings (file ->
	filename).

	* eval.c (scm_force): Added texinfo markup to docstring.
	(scm_promise_p): Renamed parameter to `obj' to match docstring.

	* debug-malloc.c: Reinserted #include <stdio.h>.

libguile/ChangeLog

@@ -1,3 +1,14 @@
+2001-03-12  Martin Grabmueller  <mgrabmue@cs.tu-berlin.de>
+
+	* load.c (scm_primitive_load, scm_primitive_load_path),
+	(scm_sys_search_load_path): Corrected docstrings (file ->
+	filename).
+
+	* eval.c (scm_force): Added texinfo markup to docstring.
+	(scm_promise_p): Renamed parameter to `obj' to match docstring.
+
+	* debug-malloc.c: Reinserted #include <stdio.h>.
+
 2001-03-11  Keisuke Nishida  <kxn30@po.cwru.edu>
 
 	* list.c (s_scm_reverse_x): Use SCM_VALIDATE_LIST.

libguile/debug-malloc.c

@@ -40,6 +40,7 @@
  * If you do not wish that, delete this exception notice.  */
 
 #include <string.h>
+#include <stdio.h>
 
 #include "libguile/_scm.h"
 #include "libguile/alist.h"

libguile/eval.c

@@ -3761,8 +3761,9 @@ promise_print (SCM exp, SCM port, scm_print_state *pstate)
 
 SCM_DEFINE (scm_force, "force", 1, 0, 0, 
 	    (SCM x),
-	    "If the promise X has not been computed yet, compute and return\n"
+	    "If the promise @var{x} has not been computed yet, compute and\n"
-	    "X, otherwise just return the previously computed value.")
+	    "return @var{x}, otherwise just return the previously computed\n"
+	    "value.")
 #define FUNC_NAME s_scm_force
 {
   SCM_VALIDATE_SMOB (1, x, promise);
@@ -3783,12 +3784,12 @@ SCM_DEFINE (scm_force, "force", 1, 0, 0,
 
 
 SCM_DEFINE (scm_promise_p, "promise?", 1, 0, 0, 
-            (SCM x),
+            (SCM obj),
 	    "Return true if @var{obj} is a promise, i.e. a delayed computation\n"
 	    "(@pxref{Delayed evaluation,,,r4rs.info,The Revised^4 Report on Scheme}).")
 #define FUNC_NAME s_scm_promise_p
 {
-  return SCM_BOOL (SCM_TYP16_PREDICATE (scm_tc16_promise, x));
+  return SCM_BOOL (SCM_TYP16_PREDICATE (scm_tc16_promise, obj));
 }
 #undef FUNC_NAME
 

libguile/load.c

@@ -103,12 +103,13 @@ load (void *data)
 
 SCM_DEFINE (scm_primitive_load, "primitive-load", 1, 0, 0, 
            (SCM filename),
-	    "Load @var{file} and evaluate its contents in the top-level environment.\n"
+	    "Load the file named @var{filename} and evaluate its contents in\n"
-	    "The load paths are not searched; @var{file} must either be a full\n"
+	    "the top-level environment. The load paths are not searched;\n"
-	    "pathname or be a pathname relative to the current directory.  If the\n"
+	    "@var{filename} must either be a full pathname or be a pathname\n"
-	    "variable @code{%load-hook} is defined, it should be bound to a procedure\n"
+	    "relative to the current directory.  If the  variable\n"
-	    "that will be called before any code is loaded.  See documentation for\n"
+	    "@code{%load-hook} is defined, it should be bound to a procedure\n"
-	    "@code{%load-hook} later in this section.")
+	    "that will be called before any code is loaded.  See the\n"
+	    "documentation for @code{%load-hook} later in this section.")
 #define FUNC_NAME s_scm_primitive_load
 {
   SCM hook = *scm_loc_load_hook;
@@ -410,12 +411,13 @@ SCM_DEFINE (scm_search_path, "search-path", 2, 1, 0,
    If FILENAME is absolute, return it unchanged.  */
 SCM_DEFINE (scm_sys_search_load_path, "%search-load-path", 1, 0, 0, 
 	    (SCM filename),
-	    "Search @var{%load-path} for @var{file}, which must be readable by the\n"
+	    "Search @var{%load-path} for the file named @var{filename},\n"
-	    "current user.  If @var{file} is found in the list of paths to search or\n"
+	    "which must be readable by the current user.  If @var{filename}\n"
-	    "is an absolute pathname, return its full pathname.  Otherwise, return\n"
+	    "is found in the list of paths to search or is an absolute\n"
-	    "@code{#f}.  Filenames may have any of the optional extensions in the\n"
+	    "pathname, return its full pathname.  Otherwise, return\n"
-	    "@code{%load-extensions} list; @code{%search-load-path} will try each\n"
+	    "@code{#f}.  Filenames may have any of the optional extensions\n"
-	    "extension automatically.")
+	    "in the @code{%load-extensions} list; @code{%search-load-path}\n"
+	    "will try each extension automatically.")
 #define FUNC_NAME s_scm_sys_search_load_path
 {
   SCM path = *scm_loc_load_path;
@@ -433,9 +435,10 @@ SCM_DEFINE (scm_sys_search_load_path, "%search-load-path", 1, 0, 0,
 
 SCM_DEFINE (scm_primitive_load_path, "primitive-load-path", 1, 0, 0, 
 	    (SCM filename),
-	    "Search @var{%load-path} for @var{file} and load it into the top-level\n"
+	    "Search @var{%load-path} for the file named @var{filename} and\n"
-	    "environment.  If @var{file} is a relative pathname and is not found in\n"
+	    "load it into the top-level environment.  If @var{filename} is a\n"
-	    "the list of search paths, an error is signalled.")
+	    "relative pathname and is not found in the list of search paths,\n"
+	    "an error is signalled.")
 #define FUNC_NAME s_scm_primitive_load_path
 {
   SCM full_filename;