# HG changeset patch
# User jwe
# Date 815135075 0
# Node ID 992d524aefb41edf15bf1fabdf3cd5445fc4a5d1
# Parent  57e84c10c5583f0f7335aaa3d8da0a6ad67744d5
[project @ 1995-10-31 10:24:35 by jwe]

diff -r 57e84c10c558 -r 992d524aefb4 src/dirfns.cc
--- a/src/dirfns.cc	Tue Oct 31 10:11:28 1995 +0000
+++ b/src/dirfns.cc	Tue Oct 31 10:24:35 1995 +0000
@@ -453,7 +453,7 @@
 
 DEFALIAS (dir, ls);
 
-DEFUN ("pwd", Fpwd, Spwd, 00,
+DEFUN ("pwd", Fpwd, Spwd, 01,
   "pwd (): print current working directory")
 {
   Octave_object retval;
@@ -477,10 +477,16 @@
 
   if (directory)
     {
-      char *s = strconcat (directory, "\n");
-      retval = s;
-      delete [] s;
+      if (nargout == 0)
+	{
+	  ostrstream output_buf;
+	  output_buf << directory << "\n" << ends;
+	  maybe_page_output (output_buf);
+	}
+      else
+	retval = directory;
     }
+
   return retval;
 }