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