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

Fix compilation of make-mutex

Browse source 
Issue was that this takes no application-level arguments but does take a 'data' argument. So this required some modifications since we never had a function with those specific needs before.
This commit is contained in:
Justin Ethier 2016-01-03 21:34:16 -05:00
parent 9b7e9106f1
commit 4a940918ee
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
scheme/cyclone/cgen.sld
View file

@ -671,7 +671,7 @@
((eq? p 'make-vector) "object") ((eq? p 'make-vector) "object")
((eq? p 'list->string) "object") ((eq? p 'list->string) "object")
((eq? p 'list->vector) "object") ((eq? p 'list->vector) "object")
((eq? p 'make-mutex) "object") ;((eq? p 'make-mutex) "object")
((eq? p 'mutex-lock!) "object") ((eq? p 'mutex-lock!) "object")
((eq? p 'mutex-unlock!) "object") ((eq? p 'mutex-unlock!) "object")
((eq? p 'Cyc-installation-dir) "object") ((eq? p 'Cyc-installation-dir) "object")
@ -696,7 +696,8 @@
string-length substring string-length substring
+ - * / apply + - * / apply
command-line-arguments command-line-arguments
make-mutex mutex-lock! mutex-unlock! ;make-mutex
mutex-lock! mutex-unlock!
Cyc-minor-gc Cyc-minor-gc
Cyc-read-line Cyc-read-line
read-char peek-char read-char peek-char
@ -710,7 +711,7 @@
symbol->string list->string substring string-append symbol->string list->string substring string-append
make-vector list->vector Cyc-installation-dir)))) make-vector list->vector Cyc-installation-dir))))
;; Primitive functions that pass a continuation but have no other arguments ;; Primitive functions that pass a continuation or thread data but have no other arguments
(define (prim:cont/no-args? exp) (define (prim:cont/no-args? exp)
(and (prim? exp) (and (prim? exp)
(member exp '(command-line-arguments make-mutex Cyc-minor-gc)))) (member exp '(command-line-arguments make-mutex Cyc-minor-gc))))
@ -897,7 +898,8 @@
(c:append (c:append
(let () (let ()
;; Add a comma if necessary ;; Add a comma if necessary
(if (str-ending? (c:body c-fun) "(") (if (or (str-ending? (c:body c-fun) "(")
(prim:cont/no-args? fun))
c-fun c-fun
(c:append c-fun (c-code ", ")))) (c:append c-fun (c-code ", "))))
c-args*) c-args*)