Fails to parse class pragma with two arguments

Project:GNU Smalltalk
Component:STInST
Category:bug
Priority:normal
Assigned:Unassigned
Status:fixed
Description

GSTFileInParser>>#parseClassTag fails to parse the example below.


Eval [

   | gst |

   gst := 'Object subclass: Bla [
       
   ]'.

   STInST.STClassLoader new parseSmalltalkStream: gst readStream with: STInST.GSTFileInParser.

]

User login