Newsgroups: comp.lang.smalltalk
Path: cantaloupe.srv.cs.cmu.edu!das-news2.harvard.edu!oitnews.harvard.edu!newsfeed.rice.edu!news.sesqui.net!uuneo.neosoft.com!nmtigw!peter
From: peter@nmti.com (Peter da Silva)
Subject: A Little More Smalltalk...
Message-ID: <id.8ZLK1.8L9@nmti.com>
Sender: peter@nmti.com (peter da silva)
Organization: Network/development platform support, NMTI
Date: Fri, 9 Jun 1995 14:46:01 GMT
Lines: 46

Oh, this is tantalizing.

Little Smalltalk 4 is a nice small interpreter. Unfortunately, it's broken
somewhere subtle. On the Alpha I get this:

./st
3711 objects in image
-> 2000
,2,0
-> 

???

On FreeBSD, I get:

./st
3711 objects in image
-> 2000
can't find method in call
back trace
message input (MetaString,)
message whileTrue: (Block,Block,)
message input (MetaString,)
message main (Undefined,)
message whileTrue: (Block,Block,)
message main (Undefined,)
Segmentation fault (core dumped)
Fatal error in process.

!!!

Looking at the source, it has to have interpreted quite a lot of bytecodes
to generate the -> prompt, because that's in the image.

METHOD Undefined
main    | command |
                " main execution loop "
        [ '-> ' print. command <- String input. command notNil ]
                whileTrue: [ command isEmpty
                        ifFalse: [ command doIt print. Char newline print ] ]

-- 
Peter da Silva    (NIC: PJD2)                             `-_-'
Network Management Technology Incorporated                 'U`
1601 Industrial Blvd.     Sugar Land, TX  77478  USA
+1 713 274 5180                                "Har du kramat din varg idag?"
