shithub: femtolisp

Info  •  Files  •  Log  •  Branches

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