diff --git a/phonetics-feature-tree.scm b/phonetics-feature-tree.scm index 383bdf3..0926a87 100644 --- a/phonetics-feature-tree.scm +++ b/phonetics-feature-tree.scm @@ -1,20 +1,3 @@ -(define test-tree - '("1" - ("1-1" - ("1-1-1" - ("1-1-1-1") - ("1-1-1-2")) - ("1-1-2" - ("1-1-2-1" - ("1-1-2-1-1") - ("1-1-2-1-2") - ("1-1-2-1-3") - ("1-1-2-1-4"))) - ("1-1-3" - ("1-1-3-1" - ("1-1-3-1-1") - ("1-1-3-1-2")))))) - (define (declare-node node-text node-generation) (string-append ;; "node" (number->string node-generation)