Permalink
Browse files

Fixed a typo in some comments, added max: and min: methods to the ord…

…ered mixin.
  • Loading branch information...
1 parent c55c677 commit 2446ade5b7e333c7f1abe3975550267211a5fa88 @AdamSpitz committed May 15, 2009
Showing with 20 additions and 4 deletions.
  1. +4 −4 objects/core/list.self
  2. +16 −0 objects/core/rootTraits.self
View
8 objects/core/list.self 100755 → 100644
@@ -559,7 +559,7 @@ SlotsToOmit: comment directory fileInTimeString myComment postFileIn revision su
'Category: inserting\x7fComment: Inserts the specified element after the first
element in the list satisfying the condition
block (or calls the IfAbsent: block if no such
-element is fount). -- Adam, 5/06\x7fModuleInfo: Module: list InitialContents: FollowSlot\x7fVisibility: public'
+element is found). -- Adam, 5/06\x7fModuleInfo: Module: list InitialContents: FollowSlot\x7fVisibility: public'
insert: x AfterElementSatisfying: blk IfAbsent: aBlk = ( |
|
@@ -574,7 +574,7 @@ element is fount). -- Adam, 5/06\x7fModuleInfo: Module: list InitialContents: Fo
'Category: inserting\x7fComment: Inserts the specified element before the first
element in the list satisfying the condition
block (or calls the IfAbsent: block if no such
-element is fount). -- Adam, 5/06\x7fModuleInfo: Module: list InitialContents: FollowSlot\x7fVisibility: public'
+element is found). -- Adam, 5/06\x7fModuleInfo: Module: list InitialContents: FollowSlot\x7fVisibility: public'
insert: x BeforeElementSatisfying: blk IfAbsent: aBlk = ( |
|
@@ -589,7 +589,7 @@ element is fount). -- Adam, 5/06\x7fModuleInfo: Module: list InitialContents: Fo
'Category: inserting\x7fComment: Inserts the specified elements after the first
element in the list satisfying the condition
block (or calls the IfAbsent: block if no such
-element is fount). -- Adam, 5/06\x7fModuleInfo: Module: list InitialContents: FollowSlot\x7fVisibility: public'
+element is found). -- Adam, 5/06\x7fModuleInfo: Module: list InitialContents: FollowSlot\x7fVisibility: public'
insertAll: c AfterElementSatisfying: blk IfAbsent: aBlk = ( |
|
@@ -608,7 +608,7 @@ element is fount). -- Adam, 5/06\x7fModuleInfo: Module: list InitialContents: Fo
'Category: inserting\x7fComment: Inserts the specified elements before the first
element in the list satisfying the condition
block (or calls the IfAbsent: block if no such
-element is fount). -- Adam, 5/06\x7fModuleInfo: Module: list InitialContents: FollowSlot\x7fVisibility: public'
+element is found). -- Adam, 5/06\x7fModuleInfo: Module: list InitialContents: FollowSlot\x7fVisibility: public'
insertAll: c BeforeElementSatisfying: blk IfAbsent: aBlk = ( |
|
View
16 objects/core/rootTraits.self 100755 → 100644
@@ -210,6 +210,22 @@ SlotsToOmit: comment directory fileInTimeString myComment postFileIn revision su
(can mixin mixins identity if desired) ').
} | )
+ bootstrap addSlotsTo: bootstrap stub -> 'mixins' -> 'ordered' -> () From: ( | {
+ 'ModuleInfo: Module: rootTraits InitialContents: FollowSlot\x7fVisibility: public'
+
+ max: x = ( |
+ |
+ > x ifTrue: [self] False: [x]).
+ } | )
+
+ bootstrap addSlotsTo: bootstrap stub -> 'mixins' -> 'ordered' -> () From: ( | {
+ 'ModuleInfo: Module: rootTraits InitialContents: FollowSlot\x7fVisibility: public'
+
+ min: x = ( |
+ |
+ < x ifTrue: [self] False: [x]).
+ } | )
+
bootstrap addSlotsTo: bootstrap stub -> 'mixins' -> () From: ( | {
'Category: standard\x7fModuleInfo: Module: rootTraits InitialContents: FollowSlot'

0 comments on commit 2446ade

Please sign in to comment.