Last change
on this file since 11711 was
11711,
checked in by Ivan Raikov, 12 years ago
|
Some more updates to the front end interface.
|
File size:
909 bytes
|
Line | |
---|
1 | ; Copyright (c) 1993-1999 by Richard Kelsey. See file COPYING. |
---|
2 | |
---|
3 | ; These are all of the primitives that are known to the compiler. |
---|
4 | |
---|
5 | ; The enumeration is needed by the expander for LET-NODES so it ends up |
---|
6 | ; being loaded into two separate packages. |
---|
7 | |
---|
8 | (define-enum primop->int primop->sym |
---|
9 | |
---|
10 | ; Nontrivial Primops |
---|
11 | call ; see below |
---|
12 | tail-call |
---|
13 | return |
---|
14 | jump |
---|
15 | throw |
---|
16 | |
---|
17 | unknown-call |
---|
18 | unknown-tail-call |
---|
19 | unknown-return |
---|
20 | |
---|
21 | dispatch ; (dispatch <cont1> ... <contN> <exp>) |
---|
22 | let ; (let <lambda-node> . <args>) |
---|
23 | letrec1 ; (letrec1 (lambda (x v1 v2 ...) |
---|
24 | letrec2 ; (letrec2 <cont> x <lambda1> <lambda2> ...))) |
---|
25 | |
---|
26 | cell-set! |
---|
27 | global-set! |
---|
28 | |
---|
29 | undefined-effect ; (undefined-effect . <maybe-args>) |
---|
30 | |
---|
31 | ; Trivial Primops |
---|
32 | make-cell |
---|
33 | cell-ref |
---|
34 | global-ref |
---|
35 | |
---|
36 | ; Environment stuff, these are both trivial |
---|
37 | closure |
---|
38 | env-ref |
---|
39 | ) |
---|
Note: See
TracBrowser
for help on using the repository browser.