summaryrefslogtreecommitdiff
path: root/Alpha/Core.scm
diff options
context:
space:
mode:
Diffstat (limited to 'Alpha/Core.scm')
-rw-r--r--Alpha/Core.scm12
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)))