equal
deleted
inserted
replaced
6674 key := key asSymbolIfInterned. |
6674 key := key asSymbolIfInterned. |
6675 (#(cr tab nl return lf ff null) includesIdentical:key) ifTrue:[ |
6675 (#(cr tab nl return lf ff null) includesIdentical:key) ifTrue:[ |
6676 aStream nextPut:(Character perform:key). |
6676 aStream nextPut:(Character perform:key). |
6677 ]. |
6677 ]. |
6678 ] ifFalse:[ |
6678 ] ifFalse:[ |
6679 next isDigit ifTrue:[ |
6679 (next isDigit and:[ignoreNumericEscapes not]) ifTrue:[ |
6680 v := argArrayOrDictionary at:(next digitValue) ifAbsent:'' |
6680 v := argArrayOrDictionary at:(next digitValue) ifAbsent:'' |
6681 ] ifFalse:[ |
6681 ] ifFalse:[ |
6682 next == $( ifTrue:[ |
6682 next == $( ifTrue:[ |
6683 idx2 := self indexOf:$) startingAt:idx+2. |
6683 idx2 := self indexOf:$) startingAt:idx+2. |
6684 key := self copyFrom:idx+2 to:idx2-1. |
6684 key := self copyFrom:idx+2 to:idx2-1. |