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

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

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

Modified Files:
	toplevel.foo.in 
Log Message:
changed oops into foops, added call to (inspect) in error handler, added exclude macro and global-load function

Index: toplevel.foo.in
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/scm/toplevel.foo.in,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** toplevel.foo.in	7 Aug 2004 23:04:15 -0000	1.3
--- toplevel.foo.in	11 Aug 2004 12:24:37 -0000	1.4
***************
*** 26,30 ****
  ;;; requirements
  (require 'unix)
! (require 'oops)
  (require 'struct)
  
--- 26,30 ----
  ;;; requirements
  (require 'unix)
! (require 'foops)
  (require 'struct)
  
***************
*** 128,131 ****
--- 128,132 ----
    (lambda error-msg
      (error-print error-msg)
+     (inspect)
      (let loop ((intr-level (enable-interrupts)))
        (if (positive? intr-level)
***************
*** 180,183 ****
--- 181,200 ----
        (exit)))
  
+ ;; handy macro to "comment out" larger portions of source code in a file
+ (define exclude (macro args #t))
+ 
+ ;; global loading support
+ (define global-load-notify? #f)
+ 
+ (define (global-load file)
+   (if global-load-notify?
+     (begin
+ 	  (display "[Globloading ")
+ 	  (display file)
+ 	  (display "]")
+ 	  (newline)
+ 		))
+   (load file (global-environment)))
+ 
  ;; std list of initialization files
  (define foo-init-files