[foo-cvs] foo/elkfoo/scm/kernel elkfoo.scm,1.2,1.3

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

Update of /cvsroot/foo/foo/elkfoo/scm/kernel
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25637/kernel

Modified Files:
	elkfoo.scm 
Log Message:
added support for (readline-[read | write]-history), backwards compatible to older readline extension

Index: elkfoo.scm
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/scm/kernel/elkfoo.scm,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** elkfoo.scm	14 Aug 2004 15:57:18 -0000	1.2
--- elkfoo.scm	25 Aug 2004 23:16:33 -0000	1.3
***************
*** 131,134 ****
--- 131,137 ----
  (define v2pf~ foo:make-v2pf)
  
+ (define allpass~ foo:make-allpass)
+ (define comb~ foo:make-comb)
+ 
  (define (print~ s . commentary)
    (tell (foo:context-pointer (current-context)) 'invalidatePrint)
***************
*** 258,266 ****
  
  (define (foo:cleanup)
!   (let ((test-file (foo:test-file-name)))
!     (if (file-exists? test-file)
! 	(begin
! 					;(format #t "removing ~a~%" test-file)
! 	  (system (string-append "rm " test-file))))))
  
  (define (quit)
--- 261,272 ----
  
  (define (foo:cleanup)
!   (begin
!     (let ((test-file (foo:test-file-name)))
!       (if (file-exists? test-file)
! 	  (begin
! 	    ;; (format #t "removing ~a~%" test-file)
! 	    (system (string-append "rm " test-file)))))
!     (if (and (feature? 'readline.la) (bound? 'readline-write-history))
! 	(readline-write-history (tilde-expand "~/.foo/foo_history")))))
  
  (define (quit)