'This file is an annotated version of sysdefs.

Comments (by Dan Ingalls and Diana Merry) are in string-quotes like this.

The code portion of this file is copyright Xerox Corp. 1974'

'Phase I.

The bootstrap process sets up a global dictionary. It then reads input lines,

    looking specifically for the defining word, "to", and calling its code

    directly.'

to to x (CODE 19)

'Now definitions can be made by evaluating "to" in ST code'

to read (CODE 2)

'Read input into a vector. The bootstrap reader is almost identical in function

    to the SMALLTALK read routine, except that DOIT is signalled by <CR> at zero

    -th parenthesis level, and single-quote strings are ignored.'

4467:-/-/-: USER.apply: (ev ->)

4468:4467/4467/4467: ev.apply: (repeat (cr read eval print ) ->)

4469:4468/4468/4468: repeat.eval: (: # token . ->CODE 1 )

4661:4469/4468/4468: ev.apply: (cr read eval ->print )

4684:4661/4661/4661: vector.return: (CODE 3 ->? (! substr SELF x GLOB MESS ) %

    is ? (ISIT eval ) % print ? (disp _ 40 for x to SELF length (disp _ 32 SELF

    [ x ] print ) . disp _ 41 ) % map ? (: y . for x to SELF length () ) )

4685:4684/4468/4661: ev.apply: (dispframe ->knows )

11420

[0]

(to to x (CODE 19 ) )

[0]

(to read (CODE 2 ) )

[0]

(to vector (CODE 3 ) )

[0]

(to USER (read eval ) )

[29]

(to isnew (CODE 5 ) )

[45]

(to falseclass (isnew ) )