ref: b0b155732567f0d8c7d473a95cb1e1f42c0861cb
parent: 5fd64978886484a3df3903d6fa817561114dcadc
author: Sigrid Solveig Haflínudóttir <sigrid@ftrv.se>
date: Thu Nov 7 21:55:23 EST 2024
c: spaces to tabs
--- a/flisp.c
+++ b/flisp.c
@@ -21,8 +21,8 @@
#include "fsixel.h"
typedef struct {- char *name;
- builtin_t fptr;
+ char *name;
+ builtin_t fptr;
}builtinspec_t;
__thread Fl *fl;
@@ -30,8 +30,8 @@
int
isbuiltin(value_t x)
{- int i = uintval(x);
- return tag(x) == TAG_FUNCTION && i < nelem(builtins) && builtins[i].name != nil;
+ int i = uintval(x);
+ return tag(x) == TAG_FUNCTION && i < nelem(builtins) && builtins[i].name != nil;
}
static value_t apply_cl(uint32_t nargs);
--- a/flisp.h
+++ b/flisp.h
@@ -62,8 +62,8 @@
typedef struct Builtin Builtin;
struct Builtin {- char *name;
- int nargs;
+ char *name;
+ int nargs;
};
typedef value_t (*builtin_t)(value_t*, int);
@@ -153,14 +153,14 @@
#define FL_UNSPECIFIED FL_T
#define PUSH(v) \
- do{ \- fl->Stack[fl->SP++] = (v); \
- }while(0)
-#define POP() (fl->Stack[--fl->SP])
+ do{ \+ fl->Stack[fl->SP++] = (v); \
+ }while(0)
#define POPN(n) \
- do{ \- fl->SP -= (n); \
- }while(0)
+ do{ \+ fl->SP -= (n); \
+ }while(0)
+#define POP() (fl->Stack[--fl->SP])
int isbuiltin(value_t x);
void fl_init(size_t initial_heapsize);
--
⑨