From 242c3dc64e727b51b525f60f650d2bec02537638 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Tue, 14 Mar 2017 18:58:13 -0700 Subject: [PATCH] change indenting of while & until --- beautiful-racket-demo/bf-demo/expander-imperative.rkt | 2 +- beautiful-racket-lib/br/get-info.rkt | 4 +++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/beautiful-racket-demo/bf-demo/expander-imperative.rkt b/beautiful-racket-demo/bf-demo/expander-imperative.rkt index 050e42c..c7d6a92 100644 --- a/beautiful-racket-demo/bf-demo/expander-imperative.rkt +++ b/beautiful-racket-demo/bf-demo/expander-imperative.rkt @@ -11,7 +11,7 @@ (define-macro (bf-loop "[" OP-OR-LOOP-ARG ... "]") #'(until (zero? (current-byte)) - OP-OR-LOOP-ARG ...)) + OP-OR-LOOP-ARG ...)) (provide bf-loop) (define-macro-cases bf-op diff --git a/beautiful-racket-lib/br/get-info.rkt b/beautiful-racket-lib/br/get-info.rkt index dec6c86..4993fbf 100644 --- a/beautiful-racket-lib/br/get-info.rkt +++ b/beautiful-racket-lib/br/get-info.rkt @@ -12,7 +12,9 @@ "pattern-case-filter") 'lambda] [("define-macro" "define-macro-cases" - "define-cases") 'define] + "define-cases" + "while" + "until") 'define] [else #f]))))) (define (br-get-info key default default-filter)