exporting make-state-variable in SRFI 166 (issue #683)

lib/chibi/show/c.scm

@@ -7,7 +7,7 @@
     ((define-state-variables var ...)
      (begin
        (define var
-         (make-computation-environment-variable 'var #f #f))
+         (make-state-variable 'var #f #f))
        ...))))
 
 (define-state-variables

lib/chibi/show/c.sld

@@ -21,5 +21,5 @@
    cpp-error cpp-warning cpp-stringify cpp-sym-cat
    c-comment c-block-comment c-attribute)
   (import (chibi) (chibi string) (chibi show) (chibi show pretty)
-          (srfi 1) (srfi 165) (scheme cxr))
+          (srfi 1) (scheme cxr))
   (include "c.scm"))

lib/srfi/166/base.sld

@@ -12,7 +12,8 @@
           (rename (srfi 165)
                   (computation-each sequence)
                   (computation-with! with!)
-                  (computation-forked forked))
+                  (computation-forked forked)
+                  (make-computation-environment-variable make-state-variable))
           (chibi show shared))
   (cond-expand
    (chibi
@@ -45,6 +46,7 @@
    ;; computations
    fn with with! forked call-with-output
    ;; state variables
+   make-state-variable
    port row col width output writer pad-char ellipsis
    string-width substring/width substring/preserve
    radix precision decimal-sep decimal-align sign-rule

lib/srfi/166/color.sld

@@ -1,6 +1,6 @@
 
 (define-library (srfi 166 color)
-  (import (scheme base) (srfi 130) (srfi 165) (srfi 166 base))
+  (import (scheme base) (srfi 130) (srfi 166 base))
   (export
    ;; foreground
    as-red as-blue as-green as-cyan as-yellow
@@ -14,5 +14,5 @@
    )
   (begin
     (define color
-      (make-computation-environment-variable 'color #f #f)))
+      (make-state-variable 'color #f #f)))
   (include "color.scm"))