equal
deleted
inserted
replaced
20 ! ! |
20 ! ! |
21 |
21 |
22 !MCScanner class methodsFor:'as yet unclassified'! |
22 !MCScanner class methodsFor:'as yet unclassified'! |
23 |
23 |
24 scan: aStream |
24 scan: aStream |
|
25 ^ (self new stream: aStream) next |
|
26 |
|
27 "kludge: |
25 |
28 |
26 | v | |
29 | v | |
27 "Kludge" |
|
28 ^ (self new stream: aStream) next |
|
29 " |
|
30 [ v := (self new stream: aStream) next ] |
30 [ v := (self new stream: aStream) next ] |
31 on: RecursionInterruptSignal do:[:ex|ex proceed]. |
31 on: RecursionInterruptSignal do:[:ex|ex proceed]. |
32 ^v |
32 ^v |
33 " |
33 " |
34 |
34 |
108 ! ! |
108 ! ! |
109 |
109 |
110 !MCScanner class methodsFor:'documentation'! |
110 !MCScanner class methodsFor:'documentation'! |
111 |
111 |
112 version |
112 version |
113 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCScanner.st,v 1.5 2013-05-15 12:03:45 cg Exp $' |
113 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCScanner.st,v 1.6 2014-12-11 15:49:15 cg Exp $' |
114 ! |
114 ! |
115 |
115 |
116 version_CVS |
116 version_CVS |
117 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCScanner.st,v 1.5 2013-05-15 12:03:45 cg Exp $' |
117 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCScanner.st,v 1.6 2014-12-11 15:49:15 cg Exp $' |
118 ! |
118 ! |
119 |
119 |
120 version_SVN |
120 version_SVN |
121 ^ '$Id: MCScanner.st,v 1.5 2013-05-15 12:03:45 cg Exp $' |
121 ^ '$Id: MCScanner.st,v 1.6 2014-12-11 15:49:15 cg Exp $' |
122 ! ! |
122 ! ! |
123 |
123 |