From bfe08e146189d04253c44c89320ca32c9ae164c0 Mon Sep 17 00:00:00 2001 From: Phuntsok Drak-pa Date: Tue, 16 Jul 2019 23:05:14 +0200 Subject: [PATCH] removed example trees --- phonetics-feature-tree.scm | 55 +------------------------------------- 1 file changed, 1 insertion(+), 54 deletions(-) diff --git a/phonetics-feature-tree.scm b/phonetics-feature-tree.scm index 58cb2a6..8bffeed 100644 --- a/phonetics-feature-tree.scm +++ b/phonetics-feature-tree.scm @@ -42,57 +42,4 @@ (tree-to-dot-helper (cdr tree) 1 0) "}"))) -(define vowel-tree - '("[vowel]" - ("[back]" - ("[tense]" - ("[high]") - ("{high}")) - ("{tense}" - ("[high]") - ("{high}"))) - ("{back}" - ("[tense]" - ("[high]") - ("{high}")) - ("{tense}" - ("[high]") - ("{high}"))))) - -(define cons-tree - '("[cons]" - ("[son]" - ("[dor]" - ("[high]") - ("{high}")) - ("{dor}" - ("[cor]") - ("{cor}"))) - ("{son}" - ("[dor]" - ("[voice]" - ("[high]") - ("{high}")) - ("{voice}" - ("[high]") - ("{high}"))) - ("{dor}" - ("[voice]" - ("[cor]") - ("{cor}")) - ("{voice}" - ("[cor]") - ("{cor}")))))) - -(define verbs - '("[verbs]" - ("[réel]" - ("[passé]") - ("{passé}")) - ("{réel}" - ("[optatif]") - ("{optatif}" - ("[passé]") - ("{passé}"))))) - -(display (tree-to-dot vowel-tree)) +; (display (tree-to-dot vowel-tree))