[foo-cvs] foo/elkfoo/scm initialize.foo,1.1,1.2

[Ramon Gonzalez-A. <rg...@us...>]

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