mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-08 21:47:33 +02:00
Mutex fixes
This commit is contained in:
parent
ef61c578c5
commit
6b96c00b57
1 changed files with 8 additions and 8 deletions
|
@ -534,8 +534,8 @@
|
||||||
((eq? p 'string-set!) "Cyc_string_set")
|
((eq? p 'string-set!) "Cyc_string_set")
|
||||||
((eq? p 'substring) "Cyc_substring")
|
((eq? p 'substring) "Cyc_substring")
|
||||||
((eq? p 'make-mutex) "Cyc_make_mutex")
|
((eq? p 'make-mutex) "Cyc_make_mutex")
|
||||||
((eq? p 'mutex-lock) "Cyc_mutex_lock")
|
((eq? p 'mutex-lock!) "Cyc_mutex_lock")
|
||||||
((eq? p 'mutex-unlock) "Cyc_mutex_unlock")
|
((eq? p 'mutex-unlock!) "Cyc_mutex_unlock")
|
||||||
((eq? p 'mutex?) "Cyc_is_mutex")
|
((eq? p 'mutex?) "Cyc_is_mutex")
|
||||||
((eq? p 'Cyc-installation-dir) "Cyc_installation_dir")
|
((eq? p 'Cyc-installation-dir) "Cyc_installation_dir")
|
||||||
((eq? p 'command-line-arguments) "Cyc_command_line_arguments")
|
((eq? p 'command-line-arguments) "Cyc_command_line_arguments")
|
||||||
|
@ -621,8 +621,8 @@
|
||||||
string-set!
|
string-set!
|
||||||
substring
|
substring
|
||||||
make-mutex
|
make-mutex
|
||||||
mutex-lock
|
mutex-lock!
|
||||||
mutex-unlock
|
mutex-unlock!
|
||||||
Cyc-installation-dir
|
Cyc-installation-dir
|
||||||
command-line-arguments
|
command-line-arguments
|
||||||
Cyc-minor-gc
|
Cyc-minor-gc
|
||||||
|
@ -672,8 +672,8 @@
|
||||||
((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")
|
||||||
(else #f)))
|
(else #f)))
|
||||||
|
|
||||||
|
@ -705,14 +705,14 @@
|
||||||
(define (prim:cont? exp)
|
(define (prim:cont? exp)
|
||||||
(and (prim? exp)
|
(and (prim? exp)
|
||||||
(member exp '(Cyc-read-line apply command-line-arguments Cyc-minor-gc number->string
|
(member exp '(Cyc-read-line apply command-line-arguments Cyc-minor-gc number->string
|
||||||
read-char peek-char
|
read-char peek-char mutex-lock!
|
||||||
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 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 Cyc-minor-gc))))
|
(member exp '(command-line-arguments make-mutex Cyc-minor-gc))))
|
||||||
|
|
||||||
;; Pass an integer arg count as the function's first parameter?
|
;; Pass an integer arg count as the function's first parameter?
|
||||||
(define (prim:arg-count? exp)
|
(define (prim:arg-count? exp)
|
||||||
|
|
Loading…
Add table
Reference in a new issue