From: Matthew Mondor <mmondor@pulsar-zone.net>
Date: Sat, 5 Sep 2015 09:56:26 +0000 (-0400)
Subject: More text cleanup
X-Git-Url: http://git.pulsar-zone.net/?a=commitdiff_plain;h=f098d97ca7c941c7f8138ce5b0aeb7c3574b5789;p=ecl.git

More text cleanup
---

diff --git a/src/c/main.d b/src/c/main.d
index 13c3aed..3bd8faa 100755
--- a/src/c/main.d
+++ b/src/c/main.d
@@ -154,7 +154,7 @@ fix_heap_size(size_t target)
                 /* Cannot evaluate, keep target */
                 heap_size_warn(
                     "We could not obtain RLIMIT_DATA, using a %zd bytes "
-                    "heap size.",
+                    "heap size limit.",
                     target);
                 return target;
         }
@@ -163,7 +163,7 @@ fix_heap_size(size_t target)
         if (target + heap_gap > rlp.rlim_max) {
                 heap_size_warn(
                     "The hard RLIMIT_DATA is too low (%zd bytes), reducing "
-                    "the heap size target to %zd bytes.  ",
+                    "the heap size limit target to %zd bytes.  ",
                     (size_t)rlp.rlim_max, (size_t)(rlp.rlim_max - heap_gap));
                 target = rlp.rlim_max - heap_gap;
         }
@@ -179,13 +179,13 @@ fix_heap_size(size_t target)
                         heap_size_warn(
                            "The soft RLIMIT_DATA was too low (%zd bytes), "
                            "but we could increase it to %zd bytes.  "
-                           "Using a %zd bytes heap size.",
+                           "Using a %zd bytes heap size limit.",
                            (size_t)oldcur, (size_t)rlp.rlim_cur, target);
                         return target;
                 } else {
                         heap_size_warn(
                             "We could not grow the soft RLIMIT_DATA to %zd "
-                            "bytes.  Using a %zd bytes heap size.",
+                            "bytes.  Using a %zd bytes heap size limit.",
                             (size_t)rlp.rlim_cur,
                             (size_t)(rlp.rlim_cur - heap_gap - missing));
                         return (size_t)(rlp.rlim_cur - heap_gap - missing);
@@ -193,7 +193,7 @@ fix_heap_size(size_t target)
         }
 
 #endif
-        heap_size_warn("Using a %zd bytes heap size.", target);
+        heap_size_warn("Using a %zd bytes heap size limit.", target);
         return target;
 }
 
diff --git a/src/lsp/top.lsp b/src/lsp/top.lsp
index 1ba7f10..20f9f40 100644
--- a/src/lsp/top.lsp
+++ b/src/lsp/top.lsp
@@ -412,7 +412,7 @@ under certain conditions; see file 'Copyright' for details.")
                                           "heap_size_warning()"
                                           :one-liner t)))
           (when heap-warning
-            (format *standard-output* "~%~%Heap warning: ~A~%" heap-warning)))
+            (format *standard-output* "~%~%~A~%" heap-warning)))
         (format *standard-output* "~%Type :h for Help.  "))
       (setq *lisp-initialized* t)