1 "-*- slate -*-"

2

3 Namespaces addGlobal: #Counter value: (count:= Nil).

4

5 [ :a :b | c = a + b. c ].

6

7 [ :a :b | a + b ].

8

9 _@(Integer traits) ++ _@(Integer traits)

10 [

11 'ho ho ho'

12 ].

13

14 a@(Integer traits) plus: b@(Integer traits)

15 [

16 a + b

17 ].

18

19 c@Counter new

20 [

21 "a comment"

22 'a string'.

23 (c count:= 0 ref)

24 ].

25

26 c@Counter next

27 [

28 c count -> [ :value | c count <- value + 1 . value ]

29 ].

30

31 _@True ifTrue: block@(Block traits) [ block value ].

32 _@False ifTrue: block@(Block traits) [ False ].

33 _@True ifFalse: block@(Block traits) [ True ].

34 _@False ifFalse: block@(Block traits) [ block value ].

35

36 _@True ifTrue: b1@(Block traits) ifFalse: b2@(Block traits) [ b1 value ].

37 _@False ifTrue: b1@(Block traits) ifFalse: b2@(Block traits) [ b2 value ].

38

39 _@Integer trySomethingWith: other

40 [ results = Array with: 29 fib with: 30 fib with: 31 fib.

41 Console printLn: (results at: 0).

42 Console printLn: (results at: 1).

43 resend

44 ].

45

46 [ ctxt (

47 True ifTrue: [ ctxt return: 3 ].

48 (123 . 234 . 345)

49 )

50 ].