4 files changed, 63 insertions, 0 deletions
diff --git a/x11-wm/scwm/files/patch-ag b/x11-wm/scwm/files/patch-ag
new file mode 100644
index 000000000000..f9d4c2e5f06d
--- /dev/null
+++ b/x11-wm/scwm/files/patch-ag
@@ -0,0 +1,12 @@
+--- src/guile-compat.h.orig	Tue Sep 12 20:55:56 2000
++++ src/guile-compat.h	Tue Sep 12 20:56:42 2000
+@@ -76,8 +76,7 @@
+ 
+ #ifdef HAVE_SCM_THE_LAST_STACK_FLUID
+   /* from libguile/fluids.h --07/01/98 gjb */
+-SCM scm_fluid_ref SCM_P ((SCM fluid));
+-SCM scm_fluid_set_x SCM_P ((SCM fluid, SCM value));
++#include <libguile/fluids.h>
+ #define DEREF_LAST_STACK scm_fluid_ref(gh_cdr(scm_the_last_stack_fluid))
+ #define SET_LAST_STACK(X) scm_fluid_set_x (gh_cdr (scm_the_last_stack_fluid), (X))
+ 
diff --git a/x11-wm/scwm/files/patch-ah b/x11-wm/scwm/files/patch-ah
new file mode 100644
index 000000000000..e1b590b9eb21
--- /dev/null
+++ b/x11-wm/scwm/files/patch-ah
@@ -0,0 +1,20 @@
+--- src/scwm.c.orig	Wed Sep 13 00:27:42 2000
++++ src/scwm.c	Wed Sep 13 00:55:21 2000
+@@ -1838,7 +1838,7 @@
+ {
+   static SCM sym_arglist = SCM_UNDEFINED;
+   if (SCM_UNDEFINED == sym_arglist)
+-    sym_arglist = scm_permanent_object(((scm_cell *)scm_intern0("arglist"))->car);
++    sym_arglist = scm_permanent_object(SCM_CAR(scm_intern0("arglist")));
+   { /* scope */
+   SCM p = scm_make_gsubr(name,req,opt,var,fcn);
+   if (fDocumentPrimitiveFormals) {
+@@ -1859,7 +1859,7 @@
+      since events.c has the SCWM_GLOBAL_SYMBOL definition of it */
+   if (SCM_BOOL_F == sym_interactive)
+     sym_interactive = 
+-      scm_permanent_object(((scm_cell *)scm_intern0("interactive"))->car);
++      scm_permanent_object(SCM_CAR(scm_intern0("interactive")));
+   { /* scope */
+     SCM p = scwm_make_gsubr(name,req,opt,var,fcn,szArgList);
+     scm_set_procedure_property_x(p,sym_interactive,
diff --git a/x11-wm/scwm/files/patch-ai b/x11-wm/scwm/files/patch-ai
new file mode 100644
index 000000000000..ca808d36a20e
--- /dev/null
+++ b/x11-wm/scwm/files/patch-ai
@@ -0,0 +1,11 @@
+--- src/callbacks.h.orig	Wed Sep 13 01:06:11 2000
++++ src/callbacks.h	Wed Sep 13 01:03:16 2000
+@@ -32,7 +32,7 @@
+ #endif
+ 
+ #ifdef HAVE_SCM_MAKE_HOOK
+-#define SCWM_MAKE_HOOK(name,args) scm_permanent_object(scm_make_named_hook((name),(args)))
++#define SCWM_MAKE_HOOK(name,args) scm_permanent_object(scm_create_hook((name),(args)))
+ #else
+ #define SCWM_MAKE_HOOK(name,args) SCM_EOL
+ #endif
diff --git a/x11-wm/scwm/files/patch-aj b/x11-wm/scwm/files/patch-aj
new file mode 100644
index 000000000000..8961d82566ab
--- /dev/null
+++ b/x11-wm/scwm/files/patch-aj
@@ -0,0 +1,20 @@
+--- src/scwm-snarf.h.orig	Wed Sep 13 01:01:45 2000
++++ src/scwm-snarf.h	Wed Sep 13 01:02:12 2000
+@@ -61,7 +61,7 @@
+ 
+ #ifdef HAVE_SCM_MAKE_HOOK
+ #define SCWM_HOOK(var, name, args, docstring) \
+-%%%     do { var = scm_make_named_hook(name,args); } while (0)
++%%%     do { var = scm_create_hook(name,args); } while (0)
+ #else
+ #define SCWM_HOOK(var, name, args, docstring) \
+ %%%     do { var = scm_sysintern(name, SCM_EOL); } while (0)
+@@ -76,7 +76,7 @@
+ 
+ #if HAVE_SCM_MAKE_HOOK
+ #define SCWM_GLOBAL_HOOK(var, name, args, docstring) \
+-%%%     do { var = scm_make_named_hook(name,args); } while (0)
++%%%     do { var = scm_create_hook(name,args); } while (0)
+ #else
+ #define SCWM_GLOBAL_HOOK(var, name, args, docstring) \
+ %%%     do { var = scm_sysintern(name, SCM_EOL); } while (0)