Update of /cvsroot/foo/foo/elkfoo/scm
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv22424
Modified Files:
initialize.foo
Log Message:
including the new util branch & some other error
Index: initialize.foo
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/scm/initialize.foo,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** initialize.foo 3 Feb 2005 15:28:39 -0000 1.1
--- initialize.foo 10 Apr 2007 14:04:57 -0000 1.2
***************
*** 23,27 ****
(load-packages
! (list "control")) ; oh happy day...
(init-files
--- 23,27 ----
(load-packages
! (list "util" "control")) ; oh happy day...
(init-files
***************
*** 80,84 ****
(define (foo:load-file file . notify)
(if (file-exists? (tilde-expand file))
! (load file)
(if (and (not (null? notify)) (car notify))
(format #t "(foo:load-file ~a) not found\n" file))))
--- 80,84 ----
(define (foo:load-file file . notify)
(if (file-exists? (tilde-expand file))
! (global-load (tilde-expand file))
(if (and (not (null? notify)) (car notify))
(format #t "(foo:load-file ~a) not found\n" file))))
|
