fix names of glyphs

1 files changed, 36 insertions, 35 deletions

diff --git a/glyph b/glyph
index 502ec74..c2dbd8e 100755
--- a/glyph
+++ b/glyph
@@ -18,41 +18,42 @@
 ;;; Dictionary and conversion functions
 
 (define glyphs
-  '((ace . #\space )
-    (led . #\<)
-    (lit . #\()
-    (bar . #\|)
-    (gap . #\newline)
-    (gap . #\tab)
-    (rit . #\))
-    (bat . #\\)
-    (ban . #\>)
-    (lac . #\[)
-    (bus . #\$)
-    (hax . #\#)
-    (mic . #\;)
-    (cab . #\_)
-    (hep . #\-)
-    (rac . #\])
-    (cen . #\%)
-    (lob . #\{)
-    (say . #\')
-    (col . #\:)
-    (rob . #\})
-    (tar . #\*)
-    (com . #\,)
-    (ket . #\^)
-    (tec . #\`)
-    (yel . #\")
-    (lus . #\+)
-    (tis . #\=)
-    (dot . #\.)
-    (pad . #\&)
-    (wut . #\?)
-    (net . #\/)
-    (pat . #\@)
-    (sig . #\~)
-    (zap . #\!)))
+  '(( ace . #\space )
+    ( bar . #\| )
+    ( bas . #\\ )
+    ( buc . #\$ )
+    ( cab . #\_ )
+    ( cen . #\% )
+    ( col . #\: )
+    ( com . #\, )
+    ( doq . #\" )
+    ( dot . #\. )
+    ( fas . #\/ )
+    ( gal . #\< )
+    ( gap . #\newline )
+    ( gap . #\tab )
+    ( gar . #\> )
+    ( hax . #\# )
+    ( hep . #\- )
+    ( kel . #\{ )
+    ( ker . #\} )
+    ( ket . #\^ )
+    ( lus . #\+ )
+    ( mic . #\; )
+    ( pal . #\( )
+    ( pam . #\& )
+    ( par . #\) )
+    ( pat . #\@ )
+    ( sel . #\[ )
+    ( ser . #\] )
+    ( sig . #\~ )
+    ( soq . #\' )
+    ( tar . #\* )
+    ( tic . #\` )
+    ( tis . #\= )
+    ( wut . #\? )
+    ( zap . #\! )
+    ))
 
 
 (define (not-found x) (format "Not found in glyph dictionary: ~a" x))