Adding sleep function

docs/Developer-How-To.md

@@ -7,11 +7,10 @@
 
 TODO: need to develop this section better to come up with a workable/optimal approach to building things:
 
-- Install modified `.sld` files -- ???
-- Compile: `cyclone scheme/cyclone/cgen.sld`
-- Copy modified files to cyclone-bootstrap, including `cgen.c`
-- install cyclone-bootstrap
-- run `make clean ; make && make bootstrap` from cyclone repo
-- run `make clean ; ./install` from bootstrap repo
+- Compile: 
+    cyclone scheme/cyclone/cgen.sld
+    cyclone scheme/cyclone/transforms.sld
+- Copy modified files to cyclone-bootstrap, including runtime, `.sld`, and compiled `.c` files.
+- Run `make clean ; ./install` from bootstrap repo
 
 - Add primitives to the list in eval.sld. Rebuild one more time.

scheme/cyclone/cgen.sld

@@ -452,6 +452,7 @@
      ((eq? p 'Cyc-has-cycle?)        "Cyc_has_cycle")
      ((eq? p 'Cyc-spawn-thread!)     "Cyc_spawn_thread")
      ((eq? p 'Cyc-end-thread!)       "Cyc_end_thread")
+     ((eq? p 'Cyc-thread-sleep!)     "Cyc_thread_sleep")
      ((eq? p 'Cyc-stdout)            "Cyc_stdout")
      ((eq? p 'Cyc-stdin)             "Cyc_stdin")
      ((eq? p 'Cyc-stderr)            "Cyc_stderr")
@@ -583,6 +584,7 @@
     apply
     Cyc-default-exception-handler
     Cyc-end-thread!
+    Cyc-thread-sleep!
     open-input-file
     open-output-file
     close-port

scheme/cyclone/transforms.sld

@@ -453,6 +453,7 @@
      Cyc-has-cycle?
      Cyc-spawn-thread!
      Cyc-end-thread!
+     Cyc-thread-sleep!
      Cyc-stdout
      Cyc-stdin
      Cyc-stderr
@@ -558,6 +559,7 @@
                   Cyc-cvar?
                   Cyc-spawn-thread!
                   Cyc-end-thread!
+                  Cyc-thread-sleep!
                   apply
                   %halt
                   exit

scheme/eval.sld

@@ -138,6 +138,7 @@
       (list 'Cyc-has-cycle? Cyc-has-cycle?)
       (list 'Cyc-spawn-thread! Cyc-spawn-thread!)
       (list 'Cyc-end-thread! Cyc-end-thread!)
+      (list 'Cyc-thread-sleep! Cyc-thread-sleep!)
       (list 'Cyc-default-exception-handler Cyc-default-exception-handler)
       (list 'Cyc-current-exception-handler Cyc-current-exception-handler)
       (list '+ +)