Changeset 29897

Timestamp:

02/11/09 11:41:27 (4 years ago)

Author:

mokehehe

Message:

不要な関数 extend を削除

Location:

lang/scheme/3imp

Files:

• 4.4.scm (modified) (1 diff)
• 4.5.scm (modified) (1 diff)
• 4.6.scm (modified) (2 diffs)
• 4.7.scm (modified) (1 diff)

lang/scheme/3imp/4.4.scm

@@ -1 +1 @@
 
 (load "./util.scm")
-
-(define extend
-  (lambda (e r)
-    (cons r e)))
 
 (define compile

lang/scheme/3imp/4.5.scm

@@ -1 +1 @@
 
 (load "./util.scm")
-
-(define extend
-  (lambda (e r)
-    (cons r e)))
 
 (define compile

lang/scheme/3imp/4.6.scm

@@ -1 +1 @@
 
 (load "./util.scm")
-
-(define extend
-  (lambda (e r)
-    (cons r e)))
 
 (define compile
@@ -231 +227 @@
                  (HALT () a)
                  (REFER-LOCAL (n x)
-                              (VM (index #?=f n) x f c s))
+                              (VM (index f n) x f c s))
                  (REFER-FREE (n x)
                              (VM (index-closure c n) x f c s))

lang/scheme/3imp/4.7.scm

@@ -1 +1 @@
 
 (load "./util.scm")
-
-(define extend
-  (lambda (e r)
-    (cons r e)))
 
 (define compile