From 498a7b2fd0169c807fa5abfb055652ecbaa132de Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 10 Jul 2018 22:29:41 -0600 Subject: [PATCH] indents --- .../taco-decompiler-demo/main.rkt | 12 ++++++------ beautiful-racket-demo/taco-victory-demo/main.rkt | 2 +- beautiful-racket-demo/tacogram-demo/main.rkt | 12 ++++++------ beautiful-racket-demo/tacopocalypse-demo/main.rkt | 14 +++++++------- 4 files changed, 20 insertions(+), 20 deletions(-) diff --git a/beautiful-racket-demo/taco-decompiler-demo/main.rkt b/beautiful-racket-demo/taco-decompiler-demo/main.rkt index 6d91221..10f579e 100644 --- a/beautiful-racket-demo/taco-decompiler-demo/main.rkt +++ b/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 - (for/sum ([val (in-list tok)] - [power (in-naturals)] - #:when (eq? val 'taco)) - (expt 2 power))))) + (integer->char + (for/sum ([val (in-list tok)] + [power (in-naturals)] + #:when (eq? val 'taco)) + (expt 2 power))))) (define (read-syntax src ip) (define toks (tokenize ip)) diff --git a/beautiful-racket-demo/taco-victory-demo/main.rkt b/beautiful-racket-demo/taco-victory-demo/main.rkt index 6d2e6d7..831e069 100644 --- a/beautiful-racket-demo/taco-victory-demo/main.rkt +++ b/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) diff --git a/beautiful-racket-demo/tacogram-demo/main.rkt b/beautiful-racket-demo/tacogram-demo/main.rkt index ca9e0fb..b5e13cd 100644 --- a/beautiful-racket-demo/tacogram-demo/main.rkt +++ b/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 - (for/sum ([val (in-list (cdr leaf))] - [power (in-naturals)] - #:when (equal? val '(taco))) - (expt 2 power))))) + (integer->char + (for/sum ([val (in-list (cdr leaf))] + [power (in-naturals)] + #:when (equal? val '(taco))) + (expt 2 power))))) (define (read-syntax src ip) diff --git a/beautiful-racket-demo/tacopocalypse-demo/main.rkt b/beautiful-racket-demo/tacopocalypse-demo/main.rkt index 0be75fe..28cda33 100644 --- a/beautiful-racket-demo/tacopocalypse-demo/main.rkt +++ b/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 - (for/sum ([val (in-list tok)] - [power (in-naturals)] - #:when (eq? val 'taco)) - (expt 2 power))))) + (integer->char + (for/sum ([val (in-list tok)] + [power (in-naturals)] + #:when (eq? val 'taco)) + (expt 2 power))))) (define (read-syntax src ip) (define toks (tokenize ip))