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

[Gerhard E. <gu...@us...>]

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

Modified Files:
	init-control.foo 
Log Message:
adapted to foops

Index: init-control.foo
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/scm/control/init-control.foo,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** init-control.foo	7 Aug 2004 22:53:00 -0000	1.1
--- init-control.foo	11 Aug 2004 12:26:17 -0000	1.2
***************
*** 4,11 ****
  ;; init-control.foo
  
! (define (global-load file)
!   (load file (global-environment)))
! 
! (require 'oops)
  (require 'struct)
  
--- 4,8 ----
  ;; init-control.foo
  
! (require 'foops)
  (require 'struct)
  
***************
*** 13,19 ****
      (global-load "tools/init-tools.foo"))
  
- ;; need this?
- (global-load "oops-patch.scm")
- 
  (global-load "control/interface-lib/sp-sigpack-type.foo")
  (global-load "control/interface-lib/sp-sndpack-type.foo")
--- 10,13 ----