add userfunc

1 files changed, 6 insertions, 0 deletions

diff --git a/src/sexp.h b/src/sexp.h
index 35996e4..1fc0ce9 100644
--- a/src/sexp.h
+++ b/src/sexp.h
@@ -24,6 +24,10 @@ typedef struct {
     SExpRef env;
 } SExpFunc;
 
+struct interp;
+typedef struct interp Interp;
+typedef SExpRef (*LispUserFunc)(Interp *interp, SExpRef args);
+
 typedef struct {
     SExpRef args;
     SExpRef body;
@@ -53,6 +57,7 @@ typedef enum {
     kUserDataSExp,
     kPairSExp,
     kFuncSExp,
+    kUserFuncSExp,
     kEnvSExp,
     kBindingSExp,
     kMacroSExp,
@@ -71,6 +76,7 @@ struct sexp {
         const void *userdata;
         SExpPair pair;
         SExpFunc func;
+        LispUserFunc userfunc;
         SExpEnv env;
         SExpBinding binding;
         SExpMacro macro;