[foo-cvs] foo/elkfoo/scm/control/interface-lib sp-patchgen-funs.foo, 1.3, 1.4

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

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

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

Index: sp-patchgen-funs.foo
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/scm/control/interface-lib/sp-patchgen-funs.foo,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** sp-patchgen-funs.foo	10 Apr 2007 14:12:12 -0000	1.3
--- sp-patchgen-funs.foo	24 Mar 2009 18:31:02 -0000	1.4
***************
*** 112,119 ****
  (define (ParseTypeFormat Type Format)
    (let ((aux))
!    (if (not Type) (set! Type foo-default-soundfile-filetype)
  		  (set! aux (ParseFormat Type))
  		  (if aux (begin (set! Format aux)
! 		          	 (set! Type foo-default-soundfile-filetype))
  			  (set! Type (ParseType Type))))
     (if (not Format) 
--- 112,119 ----
  (define (ParseTypeFormat Type Format)
    (let ((aux))
!    (if (not Type) (set! Type (foo-default-soundfile-type))
  		  (set! aux (ParseFormat Type))
  		  (if aux (begin (set! Format aux)
! 		          	 (set! Type (foo-default-soundfile-type)))
  			  (set! Type (ParseType Type))))
     (if (not Format)