diff options
| author | Zuhaitz Méndez Fernández de Aránguiz <zuhaitz@debian> | 2026-01-11 17:16:40 +0000 |
|---|---|---|
| committer | Zuhaitz Méndez Fernández de Aránguiz <zuhaitz@debian> | 2026-01-11 17:17:04 +0000 |
| commit | d2461482caf9e93d6e2bc7ff17567102f635211a (patch) | |
| tree | c302d1a2e7cb829b6ed006c905db0b8bbf45f57a /plugins/forth.c | |
| parent | f9b1992795142a073cd5dc1794350fc64e9aa695 (diff) | |
Fixed some things. Next thing will be tests.
Diffstat (limited to 'plugins/forth.c')
| -rw-r--r-- | plugins/forth.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/plugins/forth.c b/plugins/forth.c index 9d39c6d..90e05c6 100644 --- a/plugins/forth.c +++ b/plugins/forth.c @@ -1,9 +1,9 @@ #include "zprep_plugin.h" +#include <math.h> #include <stdio.h> #include <stdlib.h> #include <string.h> -#include <math.h> static long stack[256]; static int sp = 0; @@ -598,7 +598,8 @@ void process_forth_source(char *src, char **out_ptr) void load_prelude() { - char prelude[] = ": squared fdup f* ; : hypot squared fswap squared f+ fsqrt ; : over swap dup " + char prelude[] = ": squared fdup f* ; : hypot squared fswap squared f+ fsqrt " + "; : over swap dup " "rot rot ; : panic 0 1 - exit ; "; char dummy_buf[1024]; dummy_buf[0] = '\0'; |