diff options
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) |