Class >> securityPolicy causes infinite loop

Issue status update for 
http://smalltalk.gn
u.org/node/181
Post a follow up: 
htt
p://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


samosiris:~$ 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)
samosiris:~$






_______________________________________________
help-smalltalk mailing list
help-smalltalkgnu.org

http://lists.gnu.org/mailman/listinfo/help-smalltalk

Issue status update for 
http://sma
lltalk.gnu.org/project/issue/181
Post a follow up: 
htt
p://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
help-smalltalkgnu.org

http://lists.gnu.org/mailman/listinfo/help-smalltalk