[foo-cvs] foo/elkfoo/scm/util soundfile-funs.foo,1.1,1.2

[Martin R. <ru...@us...>]

Update of /cvsroot/foo/foo/elkfoo/scm/util
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv13184/scm/util

Modified Files:
	soundfile-funs.foo 
Log Message:
added macports paths /opt/local/xxx to default search path on darwin

Index: soundfile-funs.foo
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/scm/util/soundfile-funs.foo,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** soundfile-funs.foo	10 Apr 2007 14:01:45 -0000	1.1
--- soundfile-funs.foo	24 Mar 2009 18:31:02 -0000	1.2
***************
*** 60,71 ****
  
  ;
- ;;default type (probably to be changed). Leaning on the definition in elkfoo.scm
- ;
- (define (foo:default-soundfile-type) foo-default-soundfile-filetype)
- (define (foo:set-default-soundfile-type! type)
-     (if (symbol? type) (set! type (symbol->string type)))
-     (set! foo-default-soundfile-filetype type))
- 
- ;
  ;;get extension from type (see all database or see defaultdatabase)
  ;
--- 60,63 ----
***************
*** 236,240 ****
      (set! maximum (if (null? maximum) 1 (car maximum)))
      (create-soundfile output
! 	(soundfile-filetype input)
  	'short
  	(soundfile-srate input)
--- 228,232 ----
      (set! maximum (if (null? maximum) 1 (car maximum)))
      (create-soundfile output
! 	(soundfile-type input)
  	'short
  	(soundfile-srate input)
***************
*** 267,271 ****
    	 (srate (soundfile-srate file)) (maxi) (sampi) (timi) (comm))
       (format #t "Filename  :	~a~%" file)
!      (format #t "Type      :	~a~%" (soundfile-filetype file))
       (format #t "Size      :	~a~%" (soundfile-length file))
       (format #t "Format    :	~a~%" (soundfile-format file))
--- 259,263 ----
    	 (srate (soundfile-srate file)) (maxi) (sampi) (timi) (comm))
       (format #t "Filename  :	~a~%" file)
!      (format #t "Type      :	~a~%" (soundfile-type file))
       (format #t "Size      :	~a~%" (soundfile-length file))
       (format #t "Format    :	~a~%" (soundfile-format file))