Mercurial Mercurial > hg > stx-libbasic2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#REFACTORING by stefan
authorStefan Vogel <sv@exept.de>
Tue, 03 Jan 2017 14:45:08 +0100
changeset 4247 11f26c6f2d17
parent 4246 c4093b605f67
child 4248 998a831e6c9d
#REFACTORING by stefan class: Cons changed: #readLispListFrom: use "self class" when refering to own class
Cons.st file | annotate | diff | comparison | revisions 
--- a/Cons.st	Sat Dec 31 01:05:21 2016 +0100
+++ b/Cons.st	Tue Jan 03 14:45:08 2017 +0100
@@ -179,7 +179,7 @@
         aStream peek ~= $)
     ] whileTrue:[
         element := self readLispFrom:aStream.
-        this := Cons car:element cdr:nil.
+        this := self car:element cdr:nil.
         prev isNil ifTrue:[
             first := this
         ] ifFalse:[
hg/stx-libbasic2