'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

[10854]

(done )

Unrecognized code escape 25

[11166]

(to dispframe input : winx winwd winy winht frmx frmwd frmy frmht last mark

    lstln charx chary reply justify buf font editor : sub frame dread reread

    defont (% _ ? (0 CODE 51 ) % · ? (! · eval ) % show ? (4 CODE 51 3 CODE )

    ) )

[11395]

(dispframe knows )