change indenting of while & until

8 years ago · 242c3dc64e
parent 40786d7010
commit 242c3dc64e
2 changed files with 4 additions and 2 deletions
--- 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
--- 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)