--- Portfile.orig	2008-02-08 16:22:11.000000000 +0800
+++ Portfile	2008-02-08 16:20:35.000000000 +0800
@@ -79,4 +79,39 @@
 	depends_lib-delete	port:slib-guile
 	depends_lib-append	port:guile16 \
 				port:slib-guile16
+	
+	patchfiles	patch-configure.in patch-SplitP.h.diff
+
+	post-patch {
+		#
+		# Recursively process a directory
+		#
+		proc process_dir { src_dir } {
+		   foreach src_file [ glob [ file join $src_dir * ] ] {
+		      if { [ file isdirectory $src_file ] } {
+		         process_dir $src_file
+		      } else {
+		         process_file $src_file
+		      }
+		   }
+		}
+		
+		
+		#
+		# Process file
+		#
+		proc process_file { src_file } {
+		   reinplace "s/\\<guile\\//\<guile16\\//g"   $src_file
+		   reinplace "s/libguile\\.h/libguile16\\.h/g" $src_file
+		}
+		
+		foreach src [ glob [ file join ${worksrcpath}/src * ] ] {
+		   if { [ file isdirectory $src ] } {
+		      process_dir $src
+		   } else {
+		      process_file $src
+		   }
+		}
+	}
 }