From 1e95a76aa28df41b36c1ec41e24287d6c1b4065b Mon Sep 17 00:00:00 2001
From: Preston Pan <preston@nullring.xyz>
Date: Sun, 28 Jan 2024 19:55:11 -0800
Subject: fix bugs found by emailer

---
 src/builtins.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/builtins.c')

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);
-- 
cgit