|
From: Martin R. <ru...@us...> - 2004-08-25 23:16:42
|
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) |