[foo-cvs] foo/elkfoo/scm toplevel.foo.in,1.4,1.5

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

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

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

Index: toplevel.foo.in
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/scm/toplevel.foo.in,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** toplevel.foo.in	11 Aug 2004 12:24:37 -0000	1.4
--- toplevel.foo.in	25 Aug 2004 23:16:33 -0000	1.5
***************
*** 238,242 ****
  	  (if (bound? 'foo:cleanup)
  	      (foo:cleanup))
! 	  (exit))))
  
  (provide 'foo)
--- 238,245 ----
  	  (if (bound? 'foo:cleanup)
  	      (foo:cleanup))
! 	  (exit)))
!     ;; load history (ignore errors)
!     (if (and (feature? 'readline.la) (bound? 'readline-read-history))
! 	(readline-read-history (tilde-expand "~/.foo/foo_history"))))
  
  (provide 'foo)