Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

cleanup whitespace

Browse source
This commit is contained in:
Alex Shinn 2020-05-25 18:52:33 +09:00
parent 7bbbb1fb2c
commit 6b449150fc
2 changed files with 104 additions and 98 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
lib/srfi/165.scm
View file

@ -21,7 +21,7 @@
;; CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE ;; CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
;; SOFTWARE. ;; SOFTWARE.
(define-record-type <computation-environment-variable> (define-record-type Computation-Environment-Variable
(make-environment-variable name default immutable? id) (make-environment-variable name default immutable? id)
environment-variable? environment-variable?
(name environment-variable-name) (name environment-variable-name)
@ -101,7 +101,8 @@
(define (computation-environment-ref env var) (define (computation-environment-ref env var)
(if (predefined? var) (if (predefined? var)
(unbox (environment-cell env var)) (unbox (environment-cell env var))
(mapping-ref (environment-local env) (mapping-ref
(environment-local env)
var var
(lambda () (lambda ()
(hash-table-ref/default (environment-global env) (hash-table-ref/default (environment-global env)
@ -205,7 +206,8 @@
(syntax-rules () (syntax-rules ()
((_ () ((id var tmp) ...) expr ... computation) ((_ () ((id var tmp) ...) expr ... computation)
(let ((tmp var) ...) (let ((tmp var) ...)
(computation-bind (computation-ask) (computation-bind
(computation-ask)
(lambda (env) (lambda (env)
(let ((id (computation-environment-ref env tmp)) ...) (let ((id (computation-environment-ref env tmp)) ...)
expr ... expr ...
@ -242,7 +244,8 @@
(syntax-rules () (syntax-rules ()
((_ ((var u val v) ...)) ((_ ((var u val v) ...))
(let ((u var) ... (v val) ...) (let ((u var) ... (v val) ...)
(computation-bind (computation-ask) (computation-bind
(computation-ask)
(lambda (env) (lambda (env)
(computation-environment-update! env u v) ... (computation-environment-update! env u v) ...
(computation-pure (if #f #f)))))) (computation-pure (if #f #f))))))
@ -268,10 +271,13 @@
proc*)) proc*))
(define (computation-sequence fmt*) (define (computation-sequence fmt*)
(fold-right (lambda (fmt res) (fold-right
(computation-bind res (lambda (fmt res)
(computation-bind
res
(lambda (vals) (lambda (vals)
(computation-bind fmt (computation-bind
fmt
(lambda (val) (lambda (val)
(computation-pure (cons val vals))))))) (computation-pure (cons val vals)))))))
(computation-pure '()) fmt*)) (computation-pure '()) fmt*))