web server is working

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