allow multiple patches to be applied at the same time.

Reference: /n/atom/patch/applied/apatchmapply
Date: Sun Jan 10 18:36:20 CET 2016
Signed-off-by: quanstro@quanstro.net

--- /rc/bin/apatch/apply	Sun Jan 10 18:35:59 2016
+++ /rc/bin/apatch/apply	Sun Jan 10 18:36:00 2016
@@ -11,23 +11,29 @@
 test -e /n/dist/lib/patch.skipfile && bind /dev/null /n/dist/lib/patch.skipfile
 
 errs=/tmp/apply.$pid
-if($patch/·apply $* |[2] tee $errs){
-	if(test -d $PD/$*.*){
-		echo '#you could:'
-		echo rm -rf $PD/$patch.*
-	}
-	$patch/applied $1
-	echo patch has been applied.  emailing...
-	u=`{cat $PD/applied/$1/email|grep -v '^-$'}
-
-	# gross
-	if(~ $u quanstro@quanstro.net)
-		u=()
 
-	@{builtin cd $PD/applied/$1 && $patch/diffemail && echo ------ && cat $errs} |
-		mail -s 'applied patch: '^$PD/applied/$1 $M $u
-	rm -f $errs
+fn one{
+	if($patch/·apply $1 |[2] tee $errs){
+		if(test -d $PD/$1.*){
+			echo '#you could:'
+			echo rm -rf $PD/$patch.*
+		}
+		$patch/applied $1
+		echo patch has been applied.  emailing...
+		u=`{cat $PD/applied/$1/email|grep -v '^-$'}
+	
+		# gross
+		if(~ $u quanstro@quanstro.net)
+			u=()
+	
+		@{builtin cd $PD/applied/$1 && $patch/diffemail && echo ------ && cat $errs} |
+			mail -s 'applied patch: '^$PD/applied/$1 $M $u
+		rm -f $errs
+	}
 }
+
+for(i)
+	one $i
 
 # if(test -x /sys/lib/dist/update){
 # 	echo '#run this to update the replica db.'