artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

boot: Remove label support from Scheme.

Browse source 
* module/mes/loop-0.scm (apply-env): Remove label clause.
This commit is contained in:
Jan Nieuwenhuizen 2016-10-21 10:39:13 +02:00
parent 46eca44fb4
commit 2938f5155d
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
module/mes/loop-0.mes
View 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:
@ -145,7 +145,7 @@
(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)