From 48c02f4fccd13cf329594988a19a4edd1fce4774 Mon Sep 17 00:00:00 2001
From: dan <me@danrh.co.uk>
Date: Sat, 3 Jun 2023 14:41:14 -0400
Subject: feat: forthmachine and stack errors handled with error handlers, not
 just by printing

---
 forthmachine.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'forthmachine.c')

diff --git a/forthmachine.c b/forthmachine.c
index ba67013..a421630 100644
--- a/forthmachine.c
+++ b/forthmachine.c
@@ -2,14 +2,16 @@
 #include <stdio.h>
 #include <string.h>
 #include "drhstrings.h"
+#include "errorhandler.h"
 #include "stack.h"
 /****/
 
-forthmachine* forthmachine_new() {
+forthmachine* forthmachine_new(errorhandler errorhandler) {
     forthmachine* fm = (forthmachine*)malloc(sizeof(forthmachine));
     fm->ot = optable_new();
-    fm->s = stack_new();
+    fm->s = stack_new(errorhandler);
     fm->outputbuffer = (char*)malloc(sizeof(char) * MAX_OUTPUT_BUFFER_SIZE);
+    fm->errorhandler = errorhandler;
     strcpy(fm->outputbuffer, "");
     return fm;
 }
-- 
cgit v1.2.3