From 3d55a37e2705c83b51303c6ea9173d9eb8c15ea9 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Thu, 16 Mar 2017 21:26:28 +0000 Subject: [PATCH] Cleanup --- scheme/base.sld | 22 +--------------------- 1 file changed, 1 insertion(+), 21 deletions(-) diff --git a/scheme/base.sld b/scheme/base.sld index f3ab3e8c..dab7cdf7 100644 --- a/scheme/base.sld +++ b/scheme/base.sld @@ -960,24 +960,13 @@ make_pair(c, obj, thd->param_objs); thd->param_objs = &c; return_closcall1(data, k, &c); ") - ;"(void *data, int argc, closure _, object k, object obj)" - ;" make_pair(p, obj, ((gc_thread_data *)data)->param_objs); - ; gc_thread_data *thd = (gc_thread_data *)data; - ; //Cyc_st_add(data, \"scheme/base.sld:set-param-objs!\"); - ; //fprintf(stderr, \"scheme/base.sld:set-param-objs!\\n\"); - ; global_set((thd->param_objs), &p); - ; //thd->param_objs = (object)(&p); - ; // obj is on the stack, need to add it to write barrier - ; // to ensure it is transported to the heap - ; //add_mutation(data, &p, -1, obj); - ; return_closcall1(data, k, boolean_t); ") (define *parameter-id* 0) (define (make-parameter init . o) (let* ((converter (if (pair? o) (car o) (lambda (x) x))) (value (converter init)) (key #f)) - ;; TODO: this is not thread safe! + ;; This is not thread safe! (set! key *parameter-id*) (set! *parameter-id* (+ *parameter-id* 1)) ;; @@ -986,25 +975,16 @@ (lambda args (cond ((null? args) - ;; DEBUG (let ((pobj (get-param-objs))) - ;(if (not (pair? (car pobj))) - ; (Cyc-display `(get-param-objs not a list: ,(get-param-objs)))) (cdr (assoc key pobj)))) - ;; END DEBUG - ;(cdr (assoc key (get-param-objs)))) - ;value) ((eq? (car args) ') (let ((cell (assoc key (get-param-objs)))) (set-cdr! cell (cadr args)))) - ;(set! value (cadr args))) ((eq? (car args) ') converter) (else - ;(error "bad parameter syntax" args) (let ((cell (assoc key (get-param-objs)))) (set-cdr! cell (converter (car args)))) - ;(set! value (converter (car args))) ))))) (define current-output-port (make-parameter (Cyc-stdout)))