[foo-cvs] foo/elkfoo/scm next-compat.foo,1.4,1.5

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

Update of /cvsroot/foo/foo/elkfoo/scm
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv13184/scm

Modified Files:
	next-compat.foo 
Log Message:
added macports paths /opt/local/xxx to default search path on darwin

Index: next-compat.foo
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/scm/next-compat.foo,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** next-compat.foo	10 Apr 2007 14:07:16 -0000	1.4
--- next-compat.foo	24 Mar 2009 18:31:02 -0000	1.5
***************
*** 1,6 ****
  ;; foo-2.1 (NeXTStep) compatibility for foo
  
! (set! foo-default-soundfile-format 'short)
! (set! foo-default-soundfile-filetype 'snd)
  
  (set! create-soundfile
--- 1,6 ----
  ;; foo-2.1 (NeXTStep) compatibility for foo
  
! (set-foo-default-soundfile-format! 'short)
! (set-foo-default-soundfile-type! 'snd)
  
  (set! create-soundfile
***************
*** 10,14 ****
  	    (system (string-append "rm -rf " name)))
  	;; note: comment is ignored (not supported anymore)
! 	(foo:make-soundfile name foo-default-soundfile-filetype sampleformat samplingrate channels)))
  
  (set! make-soundfile
--- 10,14 ----
  	    (system (string-append "rm -rf " name)))
  	;; note: comment is ignored (not supported anymore)
! 	(foo:make-soundfile name (foo-default-soundfile-type) sampleformat samplingrate channels)))
  
  (set! make-soundfile
***************
*** 16,20 ****
  	(set! name (tilde-expand name))
  	;; note: comment is ignored (not supported anymore)
! 	(foo:make-soundfile name foo-default-soundfile-filetype sampleformat samplingrate channels)))
  
  (set! foo:synthesize
--- 16,20 ----
  	(set! name (tilde-expand name))
  	;; note: comment is ignored (not supported anymore)
! 	(foo:make-soundfile name (foo-default-soundfile-type) sampleformat samplingrate channels)))
  
  (set! foo:synthesize
***************
*** 46,50 ****
  		   (foo-default-srate)
  		   (foo:test-file-name)
! 		   foo-default-soundfile-format
  		   (lambda () ,@e)))
  
--- 46,50 ----
  		   (foo-default-srate)
  		   (foo:test-file-name)
! 		   (foo-default-soundfile-format)
  		   (lambda () ,@e)))