flushed out lookup_builtin

diff --git a/src/builtins.c b/src/builtins.c
index 3a05b50ea3f5b158c9eefb520f61966906bc22b2..fe9183816622c343042971c44467c8f41bd5b83a 100644 (file)
--- a/src/builtins.c
+++ b/src/builtins.c
@@ -147,6 +147,14 @@ char* lookup_builtin(Sexpr* b) {
                        return CORE_NOT_STR;
                case CORE_ATOM:
                        return CORE_ATOM_STR;
                        return CORE_NOT_STR;
                case CORE_ATOM:
                        return CORE_ATOM_STR;

+               case CORE_REST:
+                       return CORE_REST_STR;
+               case CORE_UNQUOTE:
+                       return CORE_UNQUOTE_STR;
+               case CORE_APPLYN:
+                       return CORE_APPLYN_STR;
+               case CORE_TYPE:
+                       return CORE_TYPE_STR;

                case CORE_DEF:
                        return CORE_DEF_STR;
                case CORE_EXIT:
                case CORE_DEF:
                        return CORE_DEF_STR;
                case CORE_EXIT:


@@ -196,8 +204,14 @@ char* lookup_builtin(Sexpr* b) {
                switch(suffix) {
                case IO_PRINT:
                        return IO_PRINT_STR;
                switch(suffix) {
                case IO_PRINT:
                        return IO_PRINT_STR;

+               case IO_PRINTSTR:
+                       return IO_PRINTSTR_STR;

                case IO_PB:
                        return IO_PB_STR;
                case IO_PB:
                        return IO_PB_STR;

+               case IO_READFILE:
+                       return IO_READFILE_STR;
+               case IO_WRITEFILE:
+                       return IO_WRITEFILE_STR;

                default:
                        return "NOT FOUND (IO)";
                }
                default:
                        return "NOT FOUND (IO)";
                }