|
From: Martin R. <ru...@us...> - 2004-08-30 18:13:02
|
Update of /cvsroot/foo/foo/elkfoo/scm/kernel In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21801/kernel Modified Files: elkfoo.scm Log Message: use (foo:dirname) in (foo:synthesize) instead of manual implementation (== doubles code) Index: elkfoo.scm =================================================================== RCS file: /cvsroot/foo/foo/elkfoo/scm/kernel/elkfoo.scm,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** elkfoo.scm 30 Aug 2004 18:05:15 -0000 1.5 --- elkfoo.scm 30 Aug 2004 18:12:52 -0000 1.6 *************** *** 305,309 **** (define (foo:synthesize channels duration filename filetype sampleformat srate thunk) (let ((c (make-context channels)) ! (d (substring filename 0 (1+ (foo:string-rindex filename #\/))))) (if (> (string-length d) 0) (if (not (file-exists? d)) --- 305,309 ---- (define (foo:synthesize channels duration filename filetype sampleformat srate thunk) (let ((c (make-context channels)) ! (d (foo:dirname filename))) (if (> (string-length d) 0) (if (not (file-exists? d)) |