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