print/say should return "" not nil

as in perl. "" is silent
perl11 · Oct 20, 2013 · c2d46fd · c2d46fd
1 parent 7ea88e2
commit c2d46fd
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/core/string.c b/core/string.c
@@ -144,7 +144,7 @@ static PN potion_str_clone(Potion *P, PN cl, PN self) {
 ///\returns nil
 static PN potion_str_print(Potion *P, PN cl, PN self) {
   fwrite(PN_STR_PTR(self), 1, PN_STR_LEN(self), stdout);
-  return PN_NIL;
+  return PN_STR0;
 }
 
 static size_t potion_utf8char_offset(const char *s, size_t index) {
@@ -401,7 +401,7 @@ PN potion_bytes_string(Potion *P, PN cl, PN self) {
 static PN potion_bytes_print(Potion *P, PN cl, PN self) {
   self = potion_fwd(self);
   fwrite(PN_STR_PTR(self), 1, PN_STR_LEN(self), stdout);
-  return PN_NIL;
+  return PN_STR0;
 }
 
 ///\memberof PNBytes

diff --git a/core/table.c b/core/table.c
@@ -404,7 +404,7 @@ PN potion_tuple_first(Potion *P, PN cl, PN self) {
 ///\memberof PNTuple
 /// "join" method.
 ///\param sep PNString
-///\return PNString
+///\return PNBytes
 PN potion_tuple_join(Potion *P, PN cl, PN self, PN sep) {
   DBG_CHECK_TYPE(self,PN_TTUPLE);
   PN out = potion_byte_str(P, "");
@@ -522,7 +522,7 @@ PN potion_tuple_print(Potion *P, PN cl, PN self) {
   PN_TUPLE_EACH(self, i, v, {
     potion_send(v, PN_print);
   });
-  return PN_NIL;
+  return PN_STR0;
 }
 
 ///\memberof PNTuple