test out profiling

2019-08-30 01:30:24 +02:00
parent aea0e9dc94
commit 6c80382cd0
30 changed files with 564 additions and 123 deletions
@@ -3,8 +3,7 @@
 (define (make-counter)
  (let ((var 0))
    (lambda ()
-      (mutate var (+ 1 var))
-      var)))
+      (set! var (+ 1 var)))))

 (define counter1 (make-counter))

@@ -1,4 +1,4 @@
-(define (make-counter) (let ((var 0)) (lambda () (mutate var (+ 1 var)) var)))
+(define (make-counter) (let ((var 0)) (lambda () (set! var (+ 1 var)))))

 (define counter1 (make-counter))