[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/smalltalk-mode c27611a: * indent-bang-test.st: Strip tr
From: |
Stefan Monnier |
Subject: |
[elpa] externals/smalltalk-mode c27611a: * indent-bang-test.st: Strip trailing whitespace |
Date: |
Wed, 17 Apr 2019 13:04:59 -0400 (EDT) |
branch: externals/smalltalk-mode
commit c27611a852b4fc133a59c2d6409540167d863229
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* indent-bang-test.st: Strip trailing whitespace
---
indent-bang-test.st | 34 +++++++++++++++++-----------------
1 file changed, 17 insertions(+), 17 deletions(-)
diff --git a/indent-bang-test.st b/indent-bang-test.st
index 3c8191b..4281000 100644
--- a/indent-bang-test.st
+++ b/indent-bang-test.st
@@ -16,15 +16,15 @@
| GNU Smalltalk is free software; you can redistribute it and/or modify it
| under the terms of the GNU General Public License as published by the Free
| Software Foundation; either version 2, or (at your option) any later version.
-|
+|
| GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
| ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
| FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
| details.
-|
+|
| You should have received a copy of the GNU General Public License along with
| GNU Smalltalk; see the file COPYING. If not, write to the Free Software
-| Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
+| Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
======================================================================"
@@ -63,13 +63,13 @@ version
cell
^self subclassResponsibility!
-head: headObject
+head: headObject
^self subclassResponsibility!
-head: headObject tail: tailObject
+head: headObject tail: tailObject
^self subclassResponsibility!
-list: anArray
+list: anArray
"LispCons list: #(1 2 3 4)"
| size list |
@@ -82,7 +82,7 @@ list: anArray
tail: list].
^list!
-new: anInteger
+new: anInteger
"LispCons new: 5"
| newList |
@@ -93,22 +93,22 @@ new: anInteger
null
^self subclassResponsibility!
-with: anObject
+with: anObject
"LispCons with: 1"
^self head: anObject!
-with: firstObject with: secondObject
+with: firstObject with: secondObject
"LispCons with: 1 with: 2"
^self head: firstObject tail: (self with: secondObject)!
-with: firstObject with: secondObject with: thirdObject
+with: firstObject with: secondObject with: thirdObject
"LispCons with: 1 with: 2 with: 3"
^self head: firstObject tail: (self with: secondObject with: thirdObject)!
-with: firstObject with: secondObject with: thirdObject with: fourthObject
+with: firstObject with: secondObject with: thirdObject with: fourthObject
"LispCons with: 1 with: 2 with: 3 with: 4"
^self head: firstObject tail: (self
@@ -118,7 +118,7 @@ with: firstObject with: secondObject with: thirdObject
with: fourthObject
!LispList methodsFor: 'accessing'!
-at: indexInteger put: anObject
+at: indexInteger put: anObject
^self subscriptOutOfBoundsError: indexInteger!
size
@@ -129,7 +129,7 @@ size
!LispList methodsFor: 'private'!
-subscriptOutOfBoundsError: index
+subscriptOutOfBoundsError: index
^self error: 'subscript out of bounds: ' , index printString! !
!LispList methodsFor: 'testing'!
@@ -248,13 +248,13 @@ example7
cell
^super new head: self null tail: self null!
-head: headObject
+head: headObject
^super new head: headObject tail: self null!
-head: headObject tail: tailObject
+head: headObject tail: tailObject
^super new head: headObject tail: tailObject!
-list: anArray
+list: anArray
| size list |
size := anArray size.
list := self null.
@@ -265,7 +265,7 @@ list: anArray
tail: list].
^list!
-loadFrom: aStream
+loadFrom: aStream
"by nishis, 1998/04/19 07:51"
| list |
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/smalltalk-mode c27611a: * indent-bang-test.st: Strip trailing whitespace,
Stefan Monnier <=