st/System.st

   1
   2 "accessing"
   3
   4 System method!
   5 at: key put: object
   6         ^ globals at: key put: object!
   7
   8 System method!
   9 at: key
  10         ^ globals at: key!
  11
  12 System method!
  13 globals
  14         ^ globals!
  15
  16 System method!
  17 symbols
  18         ^ symbols!
  19
  20 "system control"
  21
  22 System method!
  23 startupSystem
  24         self exitWithResult: nil doIt printString!
  25
  26 System method!
  27 exitWithResult: anObject
  28         <primitive: 'System_exitWithResult'>
  29         self primitiveFailed!
  30
  31 System method!
  32 exit
  33         self exitWithResult: nil!