equal
deleted
inserted
replaced
18 poolDictionaries:'' |
18 poolDictionaries:'' |
19 category:'System-Compiler-Support' |
19 category:'System-Compiler-Support' |
20 ! |
20 ! |
21 |
21 |
22 BlockNode comment:' |
22 BlockNode comment:' |
23 |
|
24 COPYRIGHT (c) 1989 by Claus Gittinger |
23 COPYRIGHT (c) 1989 by Claus Gittinger |
25 All Rights Reserved |
24 All Rights Reserved |
26 |
|
27 implement interpreted blocks |
|
28 |
|
29 $Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.6 1994-03-30 10:09:44 claus Exp $ |
|
30 '! |
25 '! |
|
26 |
|
27 !BlockNode class methodsFor:'documentation'! |
|
28 |
|
29 copyright |
|
30 " |
|
31 COPYRIGHT (c) 1989 by Claus Gittinger |
|
32 All Rights Reserved |
|
33 |
|
34 This software is furnished under a license and may be used |
|
35 only in accordance with the terms of that license and with the |
|
36 inclusion of the above copyright notice. This software may not |
|
37 be provided or otherwise made available to, or used by, any |
|
38 other person. No title to or ownership of the software is |
|
39 hereby transferred. |
|
40 " |
|
41 ! |
|
42 |
|
43 version |
|
44 " |
|
45 $Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.7 1994-06-02 20:25:53 claus Exp $ |
|
46 " |
|
47 ! |
|
48 |
|
49 documentation |
|
50 " |
|
51 node for parse-trees, representing blocks |
|
52 " |
|
53 ! ! |
31 |
54 |
32 !BlockNode class methodsFor:'instance creation'! |
55 !BlockNode class methodsFor:'instance creation'! |
33 |
56 |
34 arguments:argList home:h variables:vars |
57 arguments:argList home:h variables:vars |
35 ^ (self basicNew) setArguments:argList home:h variables:vars |
58 ^ (self basicNew) setArguments:argList home:h variables:vars |