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