change indenting

pull/10/head
Matthew Butterick 7 years ago
parent 242c3dc64e
commit b5f01e1e85

@ -45,11 +45,13 @@
(define (lt arr ptr) (list arr (sub1 ptr)))
(define (plus arr ptr)
(list (set-current-byte arr ptr (add1 (current-byte arr ptr)))
(list
(set-current-byte arr ptr (add1 (current-byte arr ptr)))
ptr))
(define (minus arr ptr)
(list (set-current-byte arr ptr (sub1 (current-byte arr ptr)))
(list
(set-current-byte arr ptr (sub1 (current-byte arr ptr)))
ptr))
(define (period arr ptr)

@ -44,11 +44,13 @@
(define (lt arr ptr) (list arr (sub1 ptr)))
(define (plus arr ptr)
(list (set-current-byte arr ptr (add1 (current-byte arr ptr)))
(list
(set-current-byte arr ptr (add1 (current-byte arr ptr)))
ptr))
(define (minus arr ptr)
(list (set-current-byte arr ptr (sub1 (current-byte arr ptr)))
(list
(set-current-byte arr ptr (sub1 (current-byte arr ptr)))
ptr))
(define (period arr ptr)

Loading…
Cancel
Save