diff options
Diffstat (limited to 'csc/ir2.csc')
| -rw-r--r-- | csc/ir2.csc | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/csc/ir2.csc b/csc/ir2.csc index 0c37d6c..46dbad1 100644 --- a/csc/ir2.csc +++ b/csc/ir2.csc @@ -69,6 +69,14 @@ ; It's CPS time bitch. + ; An atom consists of an ir1 expression and a continuation. + (define-record-type <atom> + (make-atom expression continuation) + atom? + (expression atom-expression) + (continuation atom-continuation)) + + ; <variable> (define-record-type <variable> (make-variable k var |