From 57952327433f34324da6db9789fb7c1ed5204b5f Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Sun, 10 May 2020 20:04:48 -0700 Subject: web server is working --- Alpha/Core.scm | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'Alpha') 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))) -- cgit v1.2.3