test out profiling

bin/pre.slime

@@ -120,7 +120,7 @@ condition is false."
       `(,append-map (lambda (,(first body)) (list ,(rec (rest (rest (rest body)))))) ,(first (rest (rest body)))))
      ((= (first body) 'if)
       `(when ,(first (rest body)) ,(rec (rest (rest body)))))
-     ((= (first body) 'yield)
+     ((= (first (rest body)) 'yield)
       (first (rest body)))
      (else (error "Not a do-able expression"))))
 
@@ -158,19 +158,6 @@ ithe sequence as arguemens."
                exports))))
 
 
-;; (define-syntax (define-package name :rest body)
-;;   `(define ,(string->symbol (concat-strings (symbol->string name) "->"))
-;;      ((lambda ()
-;;         @body
-;;         (set-type
-;;           (special-lambda (:rest args)
-;;                       (let ((op   (first args))
-;;                             (args (rest  args)))
-;;                         (if (callable? (eval op))
-;;                             (apply op args)
-;;                           (eval op))))
-;;           :package)))))
-
 (define (null? x)
   "Checks if the argument is =nil=."
   (= x ()))

bin/tests/lexical_scope.slime

@@ -3,8 +3,7 @@
 (define (make-counter)
   (let ((var 0))
     (lambda ()
-      (mutate var (+ 1 var))
-      var)))
+      (set! var (+ 1 var)))))
 
 (define counter1 (make-counter))
 

bin/tests/lexical_scope.slime.expanded

@@ -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))