boot: Remove label support from Scheme.
authorJan Nieuwenhuizen <janneke@gnu.org>
Fri, 21 Oct 2016 08:39:13 +0000 (10:39 +0200)
committerJan Nieuwenhuizen <janneke@gnu.org>
Fri, 21 Oct 2016 08:39:13 +0000 (10:39 +0200)
* module/mes/loop-0.scm (apply-env): Remove label clause.

module/mes/loop-0.mes

index c1ed34b0d911c109a0b0fbcb82e69e1700613baf..67f17f9cde6d51d56c77944c1f7f714b03cb651d 100644 (file)
@@ -28,9 +28,9 @@
 ;;; boot-0.mes, loop-0.mes is loaded to provide a richer eval/apply.
 
 ;;; This might enable moving more functionality from C to Scheme,
-;;; making the full source bootstrap process more feasible.  However,
-;;; currently performance is 400x worse.  Also several tests in the
-;;; test suite fail and the REPL does not work yet.
+;;; making the entirely-from-source bootstrap process more feasible.
+;;; However, currently performance is 400x worse.  Also several tests
+;;; in the test suite fail and the REPL does not work yet.
 
 ;;; Code:
 
         (let ((r (eval (cons 'begin body) (cons (cons '*closure* p) p))))
           (cache-invalidate-range p (cdr a))
           r))))
-   ((eq? (car fn) 'label) (apply-env (caddr fn) x (cons (cons (cadr fn) (caddr fn)) a)))
+   ;;((eq? (car fn) 'label) (apply-env (caddr fn) x (cons (cons (cadr fn) (caddr fn)) a)))
    (#t (apply-env (eval fn a) x a))))
 
 (define (eval-expand e a)