cgen/ChangeLog:

2005-02-07  Jim Blandy  <jimb@redhat.com>

	* guile.scm: New file, containing Guile-specific definitions and
	adaptations.  This is loaded by the app-specific shell scripts.
	Initially identical to fixup.scm.
	* cgen-sid.scm: Don't load fixup.scm here.

sid/component/cgen-cpu/ChangeLog:
2005-02-02  Jim Blandy  <jimb@redhat.com>

	* CGEN.sh.in: Request on the command line that cgen/guile.scm be
	loaded before cgen-sid.scm; cgen-sid.scm no longer loads fixup.scm.

diff --git a/ChangeLog b/ChangeLog
index be71879f6f89d45f7a1e13d4e13f56c250c44976..02edcf0cc38811b843d4c7488284320b61cb5a81 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2005-02-07  Jim Blandy  <jimb@redhat.com>
 
+       * guile.scm: New file, containing Guile-specific definitions and
+       adaptations.  This is loaded by the app-specific shell scripts.
+       Initially identical to fixup.scm.
+       * cgen-sid.scm: Don't load fixup.scm here.
+
        * cos.scm: Profile elm-xset! when requested, not elm-set!; the
        latter is a macro.
 

diff --git a/cgen-sid.scm b/cgen-sid.scm
index 7a00cc5962ee7165a64ed7258bdd333d0f4761cc..50a32d12fc318801a9d41e95cc19db75f6798667 100644 (file)
--- a/cgen-sid.scm
+++ b/cgen-sid.scm
@@ -10,9 +10,6 @@
 ; Load the various support routines.
 
 (define (load-files srcdir)
-  ; Fix up Scheme to be what we use (guile is always in flux).
-  (primitive-load-path (string-append srcdir "/fixup.scm"))
-
   (load (string-append srcdir "/read.scm"))
   (load (string-append srcdir "/utils-sim.scm"))
   (load (string-append srcdir "/sid.scm"))

diff --git a/guile.scm b/guile.scm
new file mode 100644 (file)
index 0000000..23d98f7
--- /dev/null
+++ b/guile.scm
@@ -0,0 +1,59 @@
+; Guile-specific functions.
+; Copyright (C) 2000, 2004 Red Hat, Inc.
+; This file is part of CGEN.
+; See file COPYING.CGEN for details.
+
+(define *guile-major-version* (string->number (major-version)))
+(define *guile-minor-version* (string->number (minor-version)))
+
+; eval takes a module argument in 1.6 and later
+
+(if (or (> *guile-major-version* 1)
+       (>= *guile-minor-version* 6))
+    (define (eval1 expr)
+      (eval expr (current-module)))
+    (define (eval1 expr)
+      (eval expr))
+)
+
+; symbol-bound? is deprecated in 1.6
+
+(if (or (> *guile-major-version* 1)
+       (>= *guile-minor-version* 6))
+    (define (symbol-bound? table s)
+      (if table
+         (error "must pass #f for symbol-bound? first arg"))
+      ; FIXME: Not sure this is 100% correct.
+      (module-defined? (current-module) s))
+)
+
+(if (symbol-bound? #f 'load-from-path)
+    (begin
+      (define (load file)
+       (begin
+         ;(load-from-path file)
+         (primitive-load-path file)
+         ))
+      )
+)
+
+; FIXME: to be deleted
+(define =? =)
+(define >=? >=)
+
+(if (not (symbol-bound? #f '%stat))
+    (begin
+      (define %stat stat)
+      )
+)
+
+(if (symbol-bound? #f 'debug-enable)
+    (debug-enable 'backtrace)
+)
+
+; Guile 1.3 has reverse!, Guile 1.2 has list-reverse!.
+; CGEN uses reverse!
+(if (and (not (symbol-bound? #f 'reverse!))
+        (symbol-bound? #f 'list-reverse!))
+    (define reverse! list-reverse!)
+)