Add a Hash.new that takes a default object.

cardinal · Jul 16, 2009 · 4cdc142 · 4cdc142
1 parent f6dbd6a
commit 4cdc142
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/classes/Hash.pir b/src/classes/Hash.pir
@@ -349,7 +349,14 @@ property instead.
 
 .namespace ['Hash']
 
-.sub 'new' :method
+.sub 'new' :method :multi(_,P)
+    .param pmc default
+    $P0 = new 'CardinalHash'
+    setattribute $P0, 'default', default
+    .return ($P0)
+.end
+
+.sub 'new' :method :multi(_,'Sub')
     .param pmc a :optional :named('!BLOCK')
     $P0 = new 'CardinalHash'
     setattribute $P0, 'default', a