|
From: Martin R. <ru...@us...> - 2009-03-24 18:31:20
|
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) |