fix bugs found by emailer

2 files changed, 5 insertions, 2 deletions

diff --git a/src/builtins.c b/src/builtins.c
index bf8618a..4446cb8 100644
--- a/src/builtins.c
+++ b/src/builtins.c
@@ -311,7 +311,7 @@ void stemsin(value_t *v) {
     array_append(STACK, v1);
     eval_error("INVALID TYPE ARGUMENT");
   }
-  v1->int_float = sinhl(v1->int_float);
+  v1->int_float = sinl(v1->int_float);
   array_append(STACK, v1);
 }
 
@@ -325,7 +325,7 @@ void stemcos(value_t *v) {
     array_append(STACK, v1);
     eval_error("INVALID TYPE ARGUMENT");
   }
-  v1->int_float = coshl(v1->int_float);
+  v1->int_float = cosl(v1->int_float);
   array_append(STACK, v1);
 }
 
@@ -558,6 +558,7 @@ void stemfread(value_t *v) {
 void stemread(value_t *v) {
   value_t *retval = init_value(VSTR);
   char *a = get_line(stdin);
+  clearerr(stdin);
   retval->str_word = init_string(a);
   array_append(STACK, retval);
   free(a);
diff --git a/src/stem.c b/src/stem.c
index f623ae7..651d624 100644
--- a/src/stem.c
+++ b/src/stem.c
@@ -331,6 +331,8 @@ value_t *parser_get_next(parser_t *p) {
     return parse_quote(p);
   case '\0':
     return NULL;
+  case EOF:
+    return NULL;
   default:
     return parse_word(p);
   }