zap now-unused firstpar

PDLPorters · Dec 16, 2024 · 94c4cdc · 94c4cdc
1 parent 4d6558c
commit 94c4cdc
Showing 1 changed file with 0 additions and 4 deletions.
diff --git a/slatec.pd b/slatec.pd
@@ -242,10 +242,6 @@ END
 
 use strict;
 
-sub firstpar {
-	$_[0] =~ /^\(([^),]+)[),]/ or die "Can't find first par from '$_[0]'";
-	$1
-}
 sub intcopy {
   my ($cvarname, $rvalue) = @_; # closures
   (sub {"&".$cvarname->(@_)}, sub {"PDL_LongLong *"},