equal
deleted
inserted
replaced
2097 or:[aValue isString |
2097 or:[aValue isString |
2098 or:[aValue isNumber |
2098 or:[aValue isNumber |
2099 or:[aValue isPoint |
2099 or:[aValue isPoint |
2100 or:[aValue isCharacter |
2100 or:[aValue isCharacter |
2101 ]]]]]) ifTrue:[ |
2101 ]]]]]) ifTrue:[ |
2102 ^ aValue storeString. |
2102 Error handle:[:ex | |
|
2103 ^ 'Error in storeString: ',ex description |
|
2104 ] do:[ |
|
2105 ^ aValue storeString. |
|
2106 ]. |
2103 ]. |
2107 ]. |
2104 |
2108 |
2105 (aValue isColor) ifTrue:[ |
2109 (aValue isColor) ifTrue:[ |
2106 ^ 'Color: ',(' ' emphasizeAllWith:(#backgroundColor->aValue)). |
2110 ^ 'Color: ',(' ' emphasizeAllWith:(#backgroundColor->aValue)). |
2107 ]. |
2111 ]. |
2118 ]. |
2122 ]. |
2119 |
2123 |
2120 ^ valString |
2124 ^ valString |
2121 |
2125 |
2122 "Modified: / 14-10-2010 / 11:57:52 / cg" |
2126 "Modified: / 14-10-2010 / 11:57:52 / cg" |
2123 "Modified: / 24-07-2018 / 12:08:55 / Claus Gittinger" |
2127 "Modified: / 08-06-2019 / 14:01:55 / Claus Gittinger" |
2124 ! ! |
2128 ! ! |
2125 |
2129 |
2126 !Explainer class methodsFor:'naive type inferer'! |
2130 !Explainer class methodsFor:'naive type inferer'! |
2127 |
2131 |
2128 addTypeOfExpressionNode:expr forAssignmentTo:varName to:setOfTypes |
2132 addTypeOfExpressionNode:expr forAssignmentTo:varName to:setOfTypes |