small adjustmewnts
This commit is contained in:
@@ -1,5 +1,4 @@
|
|||||||
namespace Slime {
|
namespace Slime {
|
||||||
|
|
||||||
proc define_symbol(Lisp_Object* symbol, Lisp_Object* value) -> void {
|
proc define_symbol(Lisp_Object* symbol, Lisp_Object* value) -> void {
|
||||||
profile_with_comment(&symbol->value.symbol->data);
|
profile_with_comment(&symbol->value.symbol->data);
|
||||||
Environment* env = get_current_environment();
|
Environment* env = get_current_environment();
|
||||||
|
|||||||
+5
-8
@@ -20,12 +20,6 @@
|
|||||||
# include <signal.h>
|
# include <signal.h>
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#include "ftb/types.hpp"
|
|
||||||
#include "ftb/arraylist.hpp"
|
|
||||||
#include "ftb/bucket_allocator.hpp"
|
|
||||||
#include "ftb/macros.hpp"
|
|
||||||
#include "ftb/profiler.hpp"
|
|
||||||
|
|
||||||
/*
|
/*
|
||||||
Forward declare the hash functions for the hashmap (needed at least
|
Forward declare the hash functions for the hashmap (needed at least
|
||||||
for clang++)
|
for clang++)
|
||||||
@@ -38,7 +32,11 @@ unsigned int hm_hash(char* str);
|
|||||||
unsigned int hm_hash(void* ptr);
|
unsigned int hm_hash(void* ptr);
|
||||||
unsigned int hm_hash(Slime::Lisp_Object* obj);
|
unsigned int hm_hash(Slime::Lisp_Object* obj);
|
||||||
#include "ftb/hashmap.hpp"
|
#include "ftb/hashmap.hpp"
|
||||||
|
#include "ftb/types.hpp"
|
||||||
|
#include "ftb/arraylist.hpp"
|
||||||
|
#include "ftb/bucket_allocator.hpp"
|
||||||
|
#include "ftb/macros.hpp"
|
||||||
|
#include "ftb/profiler.hpp"
|
||||||
|
|
||||||
# include "defines.cpp"
|
# include "defines.cpp"
|
||||||
# include "assert.hpp"
|
# include "assert.hpp"
|
||||||
@@ -121,4 +119,3 @@ unsigned int hm_hash(Slime::Lisp_Object* obj) {
|
|||||||
# include "built_ins.cpp"
|
# include "built_ins.cpp"
|
||||||
# include "testing.cpp"
|
# include "testing.cpp"
|
||||||
// # include "undefines.cpp"
|
// # include "undefines.cpp"
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user