1 files changed, 76 insertions, 0 deletions
diff --git a/lang/icon/patches/patch-cd b/lang/icon/patches/patch-cd
new file mode 100644
index 00000000000..51b3432e112
--- /dev/null
+++ b/lang/icon/patches/patch-cd
@@ -0,0 +1,76 @@
+*** ipl/procs/evinit.icn.orig	Fri Jul 29 21:32:02 1994
+--- ipl/procs/evinit.icn	Wed Mar  1 20:50:24 1995
+***************
+*** 17,23 ****
+  #
+  ############################################################################
+  
+! $include "evdefs.icn"
+  
+  procedure EvInit(f,input,output,error)
+     if not MTEvInit(f,input,output,error) then fail
+--- 17,23 ----
+  #
+  ############################################################################
+  
+! $include "../incl/evdefs.icn"
+  
+  procedure EvInit(f,input,output,error)
+     if not MTEvInit(f,input,output,error) then fail
+*** ipl/procs/evnames.icn.orig	Fri Jul 29 21:32:02 1994
+--- ipl/procs/evnames.icn	Wed Mar  1 20:50:34 1995
+***************
+*** 29,35 ****
+  
+  link twt
+  
+! $include "evdefs.icn"
+  
+  procedure evnames()
+     static namemap
+--- 29,35 ----
+  
+  link twt
+  
+! $include "../incl/evdefs.icn"
+  
+  procedure evnames()
+     static namemap
+*** ipl/procs/evsyms.icn.orig	Fri Jul 29 21:31:37 1994
+--- ipl/procs/evsyms.icn	Wed Mar  1 20:50:48 1995
+***************
+*** 28,34 ****
+  
+  link twt
+  
+! $include "evdefs.icn"
+  
+  procedure evsyms()
+     static symmap
+--- 28,34 ----
+  
+  link twt
+  
+! $include "../incl/evdefs.icn"
+  
+  procedure evsyms()
+     static symmap
+*** ipl/procs/typesyms.icn.orig	Fri Jul 29 21:32:08 1994
+--- ipl/procs/typesyms.icn	Wed Mar  1 20:50:59 1995
+***************
+*** 27,33 ****
+  #
+  ############################################################################
+  
+! $include "evdefs.icn"
+  
+  procedure typesyms()
+     static typetable
+--- 27,33 ----
+  #
+  ############################################################################
+  
+! $include "../incl/evdefs.icn"
+  
+  procedure typesyms()
+     static typetable