diff options
Diffstat (limited to 'Alpha')
| -rw-r--r-- | Alpha/Core.scm | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/Alpha/Core.scm b/Alpha/Core.scm index 192a74f..db5975b 100644 --- a/Alpha/Core.scm +++ b/Alpha/Core.scm @@ -6,7 +6,7 @@ #:export (fmt printf pr prn rest last butlast true? false? some? empty? -> ->> fn /. curry comp - repeat + repeat for seq inc dec member? contains? comment get-source* get-source source)) @@ -49,7 +49,7 @@ (eq? #t x)) (define (some? a) - (not (nil? a))) + (not (null? a))) (define (empty? a) (equal? a '())) @@ -205,3 +205,11 @@ (define (contains? ls x) (member? x ls)) + +(define (for ls f) + (map f ls)) + +(define (seq x) + (if (list? x) + x + (list x))) |