[foo-cvs] foo/elkfoo/scm/kernel elkfoo.scm,1.5,1.6

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

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