Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP, temporarily reverted set params

Browse source
This commit is contained in:
Justin Ethier 2017-03-15 11:32:43 +00:00
parent 8efb714097
commit b4a9d4ae42
1 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
scheme/base.sld
View file

@ -957,9 +957,9 @@
"(void *data, int argc, closure _, object k, object obj)"
" make_pair(p, obj, NULL);
gc_thread_data *thd = (gc_thread_data *)data;
//Cyc_global_set(thd, thd->param_objs, &p); // TODO: needed?? seems to be segfauling, though
cdr(&p) = thd->param_objs;
thd->param_objs = (object)(&p);
global_set((thd->param_objs), &p);
//thd->param_objs = (object)(&p);
return_closcall1(data, k, thd->param_objs); ")
(define *parameter-id* 0)
(define (make-parameter init . o)
@ -976,19 +976,19 @@
(lambda args
(cond
((null? args)
(cdr (assoc key (get-param-objs))))
;value)
;(cdr (assoc key (get-param-objs))))
value)
((eq? (car args) '<param-set!>)
(let ((cell (assoc key (get-param-objs))))
(set-cdr! cell (cadr args))))
;(set! value (cadr args)))
;(let ((cell (assoc key (get-param-objs))))
; (set-cdr! cell (cadr args))))
(set! value (cadr args)))
((eq? (car args) '<param-convert>)
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)))
;(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)))