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