Hello,
"boot-eval.c" has an implementation of set-car however "eval.l" doesn't.
Have mutable pairs been deprecated? :-)
I added this implementation of set-car to my "eval.l" and it seems to work:
(define-function subr_set_car (args env)
(arity2 "set-car" args)
(let ((arg (get_head args)))
(if (is <pair> arg)
(set_head arg
(get_head (get_tail args)))
())))
When I used "(pair? arg)" instead of "(is <pair> arg)" the build would fail.
Ed
_______________________________________________
fonc mailing list
fonc@vpri.org
http://vpri.org/mailman/listinfo/fonc
