indents

beautiful-racket-demo/taco-decompiler-demo/main.rkt

@@ -5,15 +5,15 @@
 
 (define (tokenize ip)
   (for/list ([tok (in-port read ip)])
-            tok))
+    tok))
 
 (define (parse toks)
   (for/list ([tok (in-list toks)])
-            (integer->char
+    (integer->char
-             (for/sum ([val (in-list tok)]
+     (for/sum ([val (in-list tok)]
-                       [power (in-naturals)]
+               [power (in-naturals)]
-                       #:when (eq? val 'taco))
+               #:when (eq? val 'taco))
-                      (expt 2 power)))))
+       (expt 2 power)))))
 
 (define (read-syntax src ip)
   (define toks (tokenize ip))

beautiful-racket-demo/taco-victory-demo/main.rkt

@@ -19,7 +19,7 @@
   (integer->char
    (for/sum ([taco-or-not (in-list pieces)]
              [pow (in-naturals)])
-            (* taco-or-not (expt 2 pow)))))
+     (* taco-or-not (expt 2 pow)))))
 
 (define (taco) 1)
 

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

@@ -6,16 +6,16 @@
 
 (define (tokenize ip)
   (for/list ([tok (in-port read-char ip)])
-            tok))
+    tok))
 
 (define (parse toks)
   (define parse-tree-datum (parse-to-datum toks))
   (for/list ([leaf (in-list (cdr parse-tree-datum))])
-            (integer->char
+    (integer->char
-             (for/sum ([val (in-list (cdr leaf))]
+     (for/sum ([val (in-list (cdr leaf))]
-                       [power (in-naturals)]
+               [power (in-naturals)]
-                       #:when (equal? val '(taco)))
+               #:when (equal? val '(taco)))
-                      (expt 2 power)))))
+       (expt 2 power)))))
 
 
 (define (read-syntax src ip)

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

@@ -13,17 +13,17 @@
 (define (tokenize ip)
   (define toklets
     (for/list ([toklet (in-port lex ip)])
-              toklet))
+      toklet))
   (for/list ([tok (in-slice 7 toklets)])
-            tok))
+    tok))
 
 (define (parse toks)
   (for/list ([tok (in-list toks)])
-            (integer->char
+    (integer->char
-             (for/sum ([val (in-list tok)]
+     (for/sum ([val (in-list tok)]
-                       [power (in-naturals)]
+               [power (in-naturals)]
-                       #:when (eq? val 'taco))
+               #:when (eq? val 'taco))
-                      (expt 2 power)))))
+       (expt 2 power)))))
 
 (define (read-syntax src ip)
   (define toks (tokenize ip))