From be89754cd0dd5691f31c535865c8ee5a6a6b8a08 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Wed, 5 Feb 2014 19:27:53 -0800
Subject: [PATCH] renamings

---
 ptree.rkt | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

diff --git a/ptree.rkt b/ptree.rkt
index d30293c..5c44134 100644
--- a/ptree.rkt
+++ b/ptree.rkt
@@ -168,49 +168,49 @@
 
 
 ;; get sequence of earlier names
-(define/contract (ptree-previous* name [ptree current-ptree])
+(define/contract (previous* name [ptree current-ptree])
   ((ptree-name?) (ptree?) . ->* . (or/c (listof ptree-name?) false?))
   (adjacent-names 'left name ptree))
 
 (module+ test
-  (check-equal? (ptree-previous* 'one test-ptree) '("foo" "bar"))
-  (check-equal? (ptree-previous* 'three test-ptree) '("foo" "bar" "one" "two"))
-  (check-false (ptree-previous* 'foo test-ptree)))
+  (check-equal? (previous* 'one test-ptree) '("foo" "bar"))
+  (check-equal? (previous* 'three test-ptree) '("foo" "bar" "one" "two"))
+  (check-false (previous* 'foo test-ptree)))
 
 
 
 
 ;; get sequence of next names
-(define (ptree-next* name [ptree current-ptree])
+(define (next* name [ptree current-ptree])
   ((ptree-name?) (ptree?) . ->* . (or/c (listof ptree-name?) false?))
   (adjacent-names 'right name ptree))
 
 (module+ test
-  (check-equal? (ptree-next* 'foo test-ptree) '("bar" "one" "two" "three"))
-  (check-equal? (ptree-next* 'one test-ptree) '("two" "three"))
-  (check-false (ptree-next* 'three test-ptree)))
+  (check-equal? (next* 'foo test-ptree) '("bar" "one" "two" "three"))
+  (check-equal? (next* 'one test-ptree) '("two" "three"))
+  (check-false (next* 'three test-ptree)))
 
 ;; get name immediately previous
-(define/contract (ptree-previous name [ptree current-ptree])
+(define/contract (previous name [ptree current-ptree])
   ((ptree-name?) (ptree?) . ->* . (or/c ptree-name? false?))
-  (let ([result (ptree-previous* name ptree)])
+  (let ([result (previous* name ptree)])
     (and result (last result))))
 
 (module+ test
-  (check-equal? (ptree-previous 'one test-ptree) "bar")
-  (check-equal? (ptree-previous 'three test-ptree) "two")
-  (check-false (ptree-previous 'foo test-ptree)))
+  (check-equal? (previous 'one test-ptree) "bar")
+  (check-equal? (previous 'three test-ptree) "two")
+  (check-false (previous 'foo test-ptree)))
 
 ;; get name immediately next
-(define (ptree-next name [ptree current-ptree])
+(define (next name [ptree current-ptree])
   ((ptree-name?) (ptree?) . ->* . (or/c ptree-name? false?))
-  (let ([result (ptree-next* name ptree)])
+  (let ([result (next* name ptree)])
     (and result (first result))))
 
 (module+ test
-  (check-equal? (ptree-next 'foo test-ptree) "bar")
-  (check-equal? (ptree-next 'one test-ptree) "two")
-  (check-false (ptree-next 'three test-ptree)))
+  (check-equal? (next 'foo test-ptree) "bar")
+  (check-equal? (next 'one test-ptree) "two")
+  (check-false (next 'three test-ptree)))