diff options
Diffstat (limited to 'csc/ir1.csc')
| -rw-r--r-- | csc/ir1.csc | 37 |
1 files changed, 1 insertions, 36 deletions
diff --git a/csc/ir1.csc b/csc/ir1.csc index 1365891..334f870 100644 --- a/csc/ir1.csc +++ b/csc/ir1.csc @@ -9,6 +9,7 @@ if-consequent if-test if? + import? lambda-body lambda-case-alternate lambda-case-arguments @@ -30,15 +31,6 @@ lexical-set-gensym lexical-set-name lexical-set? - library-ref-library - library-ref-name - library-ref-public? - library-ref? - library-set-expression - library-set-library - library-set-name - library-set-public? - library-set? make-call make-constant make-if @@ -47,8 +39,6 @@ make-letrec make-lexical-ref make-lexical-set - make-library-ref - make-library-set make-sequence make-toplevel-define make-void @@ -102,31 +92,6 @@ (expression lexical-set-expression)) - ; <library-ref> library name public? - ; A reference to a variable in a specific library. library should be the name - ; of the library, e.g. (scheme base). - ; - ; If public? is true, name will be looked up in library's public interface, - ; otherwise it will be looked up among the library's private bindings. - (define-record-type <library-ref> - (make-library-ref library name public?) - library-ref? - (library library-ref-library) - (name library-ref-name) - (public? library-ref-public?)) - - - ; <library-set> library name public? expression - ; Sets a variable in a specific library. - (define-record-type <library-set> - (make-library-set library name public? expression) - library-set? - (library library-set-library) - (name library-set-name) - (public? library-set-public?) - (expression library-set-expression)) - - ; <toplevel-define> name expression ; Defines a new variable in the current library. (define-record-type <toplevel-define> |