implemented callstack and envistack
This commit is contained in:
+10
-9
@@ -11,15 +11,16 @@ proc create_source_code_location(String* file, int line, int col) -> Source_Code
|
||||
|
||||
proc Lisp_Object_Type_to_string(Lisp_Object_Type type) -> const char* {
|
||||
switch (type) {
|
||||
case(Lisp_Object_Type::Nil): return "nil";
|
||||
case(Lisp_Object_Type::T): return "t";
|
||||
case(Lisp_Object_Type::Number): return "number";
|
||||
case(Lisp_Object_Type::String): return "string";
|
||||
case(Lisp_Object_Type::Symbol): return "symbol";
|
||||
case(Lisp_Object_Type::Keyword): return "keyword";
|
||||
case(Lisp_Object_Type::Function): return "function";
|
||||
case(Lisp_Object_Type::CFunction): return "C-function";
|
||||
case(Lisp_Object_Type::Pair): return "pair";
|
||||
case(Lisp_Object_Type::Nil): return "nil";
|
||||
case(Lisp_Object_Type::T): return "t";
|
||||
case(Lisp_Object_Type::Number): return "number";
|
||||
case(Lisp_Object_Type::String): return "string";
|
||||
case(Lisp_Object_Type::Symbol): return "symbol";
|
||||
case(Lisp_Object_Type::Keyword): return "keyword";
|
||||
case(Lisp_Object_Type::Function): return "function";
|
||||
case(Lisp_Object_Type::CFunction): return "C-function";
|
||||
case(Lisp_Object_Type::Continuation): return "continuation";
|
||||
case(Lisp_Object_Type::Pair): return "pair";
|
||||
}
|
||||
return "unknown";
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user