Added mutex functions

scheme/cyclone/cgen.sld

@@ -533,6 +533,10 @@
      ((eq? p 'string-ref)     "Cyc_string_ref")
      ((eq? p 'string-set!)    "Cyc_string_set")
      ((eq? p 'substring)      "Cyc_substring")
+     ((eq? p 'make-mutex)     "Cyc_make_mutex")
+     ((eq? p 'mutex-lock)     "Cyc_mutex_lock")
+     ((eq? p 'mutex-unlock)   "Cyc_mutex_unlock")
+     ((eq? p 'mutex?)         "Cyc_is_mutex")
      ((eq? p 'Cyc-installation-dir) "Cyc_installation_dir")
      ((eq? p 'command-line-arguments) "Cyc_command_line_arguments")
      ((eq? p 'Cyc-minor-gc)  "Cyc_trigger_minor_gc")
@@ -616,6 +620,9 @@
     string-ref
     string-set!
     substring
+    make-mutex
+    mutex-lock
+    mutex-unlock
     Cyc-installation-dir
     command-line-arguments
     Cyc-minor-gc
@@ -664,6 +671,9 @@
     ((eq? p 'make-vector) "object")
     ((eq? p 'list->string) "object")
     ((eq? p 'list->vector) "object")
+    ((eq? p 'make-mutex) "object")
+    ((eq? p 'mutex-lock) "object")
+    ((eq? p 'mutex-unlock) "object")
     ((eq? p 'Cyc-installation-dir) "object")
     (else #f)))
 

scheme/cyclone/transforms.sld

@@ -516,6 +516,10 @@
      vector-length
      vector-ref
      vector-set!
+     make-mutex
+     mutex-lock!
+     mutex-unlock!
+     mutex?
      boolean?
      char?
      eof-object?
@@ -579,6 +583,10 @@
                   string-set!
                   string->symbol ;; Could be mistaken for an identifier
                   make-vector
+                  make-mutex
+                  mutex-lock!
+                  mutex-unlock!
+                  mutex?
                   ;; I/O must be done at runtime for side effects:
                   Cyc-stdout
                   Cyc-stdin

scheme/eval.sld

@@ -223,6 +223,9 @@
       (list 'vector-length vector-length)
       (list 'vector-ref vector-ref)
       (list 'vector-set! vector-set!)
+      (list 'make-mutex  make-mutex)
+      (list 'mutex-lock! mutex-lock!)
+      (list 'mutex-unlock! mutex-unlock!)
       (list 'boolean? boolean?)
       (list 'char? char?)
       (list 'eof-object? eof-object?)