newline

beautiful-racket-demo/tacopocalypse-demo/main.rkt

@@ -15,10 +15,11 @@
     tok))
 
 (define (parse src toks)
-  (define heptatoks (let loop ([toks toks][acc null])
+  (define heptatoks
-                      (if (empty? toks)
+    (let loop ([toks toks][acc null])
-                          (reverse acc)
+      (if (empty? toks)
-                          (loop (drop toks 7) (cons (take toks 7) acc)))))
+          (reverse acc)
+          (loop (drop toks 7) (cons (take toks 7) acc)))))
   (for/list ([heptatok (in-list heptatoks)])
     (integer->char
      (for/sum ([val (in-list heptatok)]