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)
|
