Big String refacor: now len+pointer, no String storage anymore

bin/pre.slime

@@ -1,3 +1,10 @@
+;; (remove_when_double_free_is_fixed)
+;; (remove_when_double_free_is_fixed_2)
+;; (define (kk (:key ()))
+;;   ())
+
+;; (kk)
+
 (define hm/set!   hash-map-set!)
 (define hm/get    hash-map-get)
 
@@ -5,12 +12,12 @@
   (mytry (hm/get hm key) ()))
 
 (define-syntax (pe expr)
-  `((begin
+  `(begin
       (print :end " " ',expr "evaluates to")
       ((lambda (e)
          (print e)
          e) ,expr))
-    ))
+    )
 
 (define the-empty-stream ())
 
@@ -175,11 +182,6 @@ condition is false."
 
   (rec body))
 
-;; (define-syntax (apply fun seq)
-;;   "Applies the function to the sequence, as in calls the function with
-;; ithe sequence as arguemens."
-;;   `(eval (pair ,fun ,seq)))
-
 (define-syntax (define-typed args . body)
   (define (get-arg-names args)
     (when args