Write the compiler frontend.

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>