From 48e443c5c729e9ac865e5a86f0a4fe8da6114b73 Mon Sep 17 00:00:00 2001 From: sforman Date: Sat, 12 Aug 2023 14:09:44 -0700 Subject: [PATCH] for-each --- Thun.md | 2 +- implementations/scheme-chicken/joy.scm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Thun.md b/Thun.md index 60e598e..17317b0 100644 --- a/Thun.md +++ b/Thun.md @@ -134,7 +134,7 @@ and run them in various ways. These combinators reify specific control-flow patterns (such as `ifte` which is like `if.. then.. else..` in other languages.) Combinators receive the current expession in addition to the stack and return the next expression. They work by -changing the pending expression the interpreter is about to execute. +changing the pending expression the interpreter is about to execute. ### Basis Functions diff --git a/implementations/scheme-chicken/joy.scm b/implementations/scheme-chicken/joy.scm index f6804f3..1709d81 100644 --- a/implementations/scheme-chicken/joy.scm +++ b/implementations/scheme-chicken/joy.scm @@ -176,7 +176,7 @@ (load-defs (make-hash-table string=? string-hash))) (define (load-defs dict) - (map (lambda (def) (add-def def dict)) (defs)) ;defs is defined in defs.scm + (for-each (lambda (def) (add-def def dict)) (defs)) ;defs is defined in defs.scm dict) (define (add-def def dict)