Remove not needed functions after open phase.

diff --git a/src/conf/cards/aliases.alisp b/src/conf/cards/aliases.alisp
index cff78f7..1661caa 100644 (file)
--- a/src/conf/cards/aliases.alisp
+++ b/src/conf/cards/aliases.alisp
@@ -23,3 +23,7 @@
   (setq r (if (null r) cardname r))
   (unsetq r)
 )
+
+(defun snd_card_alias_unset ()
+  (unsetq snd_card_aliases_array snd_card_alias)
+)

diff --git a/src/conf/sndo-mixer.alisp b/src/conf/sndo-mixer.alisp
index adf7c97..e60a3c4 100644 (file)
--- a/src/conf/sndo-mixer.alisp
+++ b/src/conf/sndo-mixer.alisp
@@ -108,6 +108,7 @@
 (defun sndo_mixer_close nil
   (sndo_mixer_close1 (nth 1 hctls) "c")
   (sndo_mixer_close1 (nth 0 hctls) "p")
+  (snd_card_alias_unset)
   (unsetq hctls)
 )
 

diff --git a/src/ordinary_mixer/ordinary_mixer.c b/src/ordinary_mixer/ordinary_mixer.c
index d5d3c26..4f09d1c 100644 (file)
--- a/src/ordinary_mixer/ordinary_mixer.c
+++ b/src/ordinary_mixer/ordinary_mixer.c
@@ -3,7 +3,7 @@
  * \ingroup Mixer_ordinary
  * \brief Ordinary mixer interface
  * \author Jaroslav Kysela <perex@suse.cz>
- * \date 2003
+ * \date 2003,2004
  *
  * Ordinary mixer interface is a high level abtraction for soundcard's
  * mixing.