[bug] Class >> securityPolicy causes infinite loop

Issue status update for
http://smalltalk.gnu.org/node/181
Post a follow up:
http://smalltalk.gnu.org/project/comments/add/181

 Project:      GNU Smalltalk
 Version:      <none>
 Component:    Base classes
 Category:     bug reports
 Priority:     normal
 Assigned to:  Unassigned
 Reported by:  sdp
 Updated by:   sdp
 Status:       active


sam@osiris:~$ gst
GNU Smalltalk ready

st> Object securityPolicy
"Global garbage collection... done"
"Global garbage collection... done, heap grown"
"Global garbage collection... done, heap grown"
"Global garbage collection... done, heap grown"
"Global garbage collection... done, heap grown"
"Global garbage collection... done, heap grown"
"Global garbage collection... done, heap grown"
"Global garbage collection... done, heap grown"
"Global garbage collection... done, heap grown"
"Global garbage collection... Segmentation fault (core dumped)
sam@osiris:~$






_______________________________________________
help-smalltalk mailing list
[hidden email]
http://lists.gnu.org/mailman/listinfo/help-smalltalk

Issue status update for
http://smalltalk.gnu.org/project/issue/181
Post a follow up:
http://smalltalk.gnu.org/project/comments/add/181

 Project:      GNU Smalltalk
 Version:      <none>
 Component:    Base classes
 Category:     bug reports
 Priority:     normal
 Assigned to:  Unassigned
 Reported by:  sdp
 Updated by:   bonzinip
-Status:       active
+Status:       fixed

Just two methods with the wrong name:

diff --git a/kernel/Class.st b/kernel/Class.st
index 2aa5b6e..3dd4b39 100644
--- a/kernel/Class.st
+++ b/kernel/Class.st
@@ -541,12 +541,12 @@ the class category.'>
        aStream nextPutAll: (self nameIn: Smalltalk)
     ]
 
-    policy [
+    securityPolicy [
       
        ^securityPolicy
     ]
 
-    policy: aSecurityPolicy [
+    securityPolicy: aSecurityPolicy [
       
        securityPolicy := aSecurityPolicy withOwner: self
     ]




_______________________________________________
help-smalltalk mailing list
[hidden email]
http://lists.gnu.org/mailman/listinfo/help-smalltalk