st/BlockContext.st

   1
   2 "evaluation"
   3
   4 BlockContext method!
   5 value
   6         <primitive: 'BlockContext_value'>
   7         self primitiveFailed!
   8
   9 BlockContext method!
  10 value: argument
  11         <primitive: 'BlockContext_value'>
  12         self primitiveFailed!
  13
  14 BlockContext method!
  15 value: firstArgument value: secondArgument
  16         <primitive: 'BlockContext_value'>
  17         self primitiveFailed!
  18
  19 BlockContext method!
  20 value: firstArgument value: secondArgument value: thirdArgument
  21         <primitive: 'BlockContext_value'>
  22         self primitiveFailed!
  23
  24 BlockContext method!
  25 valueWithArguments: anArray
  26         <primitive: 'BlockContext_valueWithArguments'>
  27         self primitiveFailed!
  28
  29
  30 "controlling"
  31
  32 BlockContext method!
  33 whileTrue
  34         ^ [self value] whileTrue: [nil]!
  35
  36 BlockContext method!
  37 whileFalse
  38         ^ [self value] whileFalse: [nil]!
  39
  40 BlockContext method!
  41 whileTrue: aBlock
  42         ^ [self value] whileTrue: [aBlock value]!
  43
  44 BlockContext method!
  45 whileFalse: aBlock
  46         ^ [self value] whileFalse: [aBlock value]!
  47
  48 BlockContext method!
  49 repeat
  50         ^ [self value. true] whileTrue!
  51
  52
  53 "error handling"
  54
  55 BlockContext method!
  56 cannotReturn: anObject
  57         self error: 'cannot return object to a context that no longer exists'!