diff options
author | Leah Neukirchen <leah@vuxu.org> | 2023-01-08 16:13:38 +0100 |
---|---|---|
committer | Leah Neukirchen <leah@vuxu.org> | 2023-01-08 16:13:38 +0100 |
commit | 18bfa25b243653ae06956e2d029a3ccbd5d3f4e8 (patch) | |
tree | 088484380fdf7a1bb074101d10c3a085ec996d76 /mew.scm | |
parent | 6577a1d3c3e250ea9cd204baac4633e5e68ceabb (diff) | |
download | mew-18bfa25b243653ae06956e2d029a3ccbd5d3f4e8.tar.gz mew-18bfa25b243653ae06956e2d029a3ccbd5d3f4e8.tar.xz mew-18bfa25b243653ae06956e2d029a3ccbd5d3f4e8.zip |
add cr
Diffstat (limited to 'mew.scm')
-rw-r--r-- | mew.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/mew.scm b/mew.scm index 0e54d91..dc5dda6 100644 --- a/mew.scm +++ b/mew.scm @@ -2,7 +2,7 @@ (export act accumulate andloc app at boolean - cmp comp cross-product + cmp comp cross-product cr dec dec! def del-at div dup empty? eof esc fail fin final for for/into fun* @@ -428,6 +428,9 @@ (else o))) o)))) + (define (cr o) + o) + (define (generic-for-each obj) (cond ((list? obj) for-each) ((vector? obj) vector-for-each) |