touchup

7 years ago · bfed86d26c
parent 6aee273209
commit bfed86d26c
1 changed files with 10 additions and 10 deletions
--- a/pitfall/restructure/pointer.rkt
+++ b/pitfall/restructure/pointer.rkt
@ -7,16 +7,16 @@

 (for ([(val i) (in-indexed vals)])
  (hash-ref! results i (λ ()
-                    (report* results i)
-                    (let/cc pointer-k
-                      (let ([v (cond
-                                 [(pair? val) (hash-set! pointer-ks (car val) pointer-k) (car val)]
-                                 [else val])])
-                        (define pointer (hash-ref pointer-ks v #f))
-                        (cond
-                          [pointer (hash-remove! pointer-ks v)
-                                   (pointer (format "~a xref" v))]
-                          [else v]))))))
+                         (report* results i)
+                         (let/cc pointer-k
+                           (let ([v (cond
+                                      [(pair? val) (hash-set! pointer-ks (car val) pointer-k) (car val)]
+                                      [else val])])
+                             (define pointer (hash-ref pointer-ks v #f))
+                             (cond
+                               [pointer (hash-remove! pointer-ks v)
+                                        (pointer (format "~a xref" v))]
+                               [else v]))))))

 (for/list ([i (in-range (length (hash-keys results)))])
  (hash-ref results i))