Permalink
Browse files

Some cleanup.

  • Loading branch information...
krig committed May 14, 2017
1 parent ea6d20a commit 905b4b2a5b01e5003dae6dd31654ae5701e86caa
Showing with 7 additions and 7 deletions.
  1. +1 −4 main.c
  2. +3 −1 test.lisp
  3. +3 −2 test2.lisp
View
5 main.c
@@ -741,11 +741,8 @@ static size_t _gc_free = 0;
static u8* _gc_heap = 0;
void GC_INIT() {
- _gc_size = 64*1024;
- _gc_free = 64*1024;
+ _gc_size = _gc_free = 64*1024;
_gc_heap = (u8*)malloc(_gc_size);
- memset(_gc_heap, 0, _gc_size);
- printf("inited heap with 64k\n");
}
void* GC_malloc(size_t len) {
View
@@ -1,6 +1,8 @@
+(setq cadr '(fn (x) (car (cdr x))))
+
"hello world"
(car '("hello world" "goodbye world"))
-(cdr '("hello world" "goodbye world"))
+(cadr '("hello world" "goodbye world"))
((fn (x) (x '(1 2))) 'car)
((fn (x) (x '(1 2))) 'cdr)
View
@@ -1,4 +1,5 @@
-(setq really? '(fn (x y) (str+ x ", " y "?")))
+(setq really?
+ '(fn (x y)
+ (str+ x ", " y "?")))
(really? "hello" "world")
-

0 comments on commit 905b4b2

Please sign in to comment.