smalltalk.library: fix selector: syntax
parent
b72db611f1
commit
15410f483f
|
@ -17,8 +17,8 @@ SELECTOR: \ tab
|
|||
SELECTOR: \ nl
|
||||
|
||||
M: object \ selector-print: [ present ] dip stream-print nil ;
|
||||
M: object \ selector-nextPutAll: selector-print: ;
|
||||
M: object selector-tab " " swap selector-print: ;
|
||||
M: object \ selector-nextPutAll: execute\ selector-print: ;
|
||||
M: object selector-tab " " swap execute\ selector-print: ;
|
||||
M: object selector-nl stream-nl nil ;
|
||||
|
||||
SELECTOR: \ +
|
||||
|
|
Loading…
Reference in New Issue