kanaka/mal
1
1
Fork 0
mirror of https://github.com/kanaka/mal.git synced 2024-09-20 01:57:09 +03:00
Code Issues Projects Releases Wiki Activity

Self-hosting fix

Browse Source
This commit is contained in:
Vasilij Schneidermann 2017-09-09 12:34:18 +02:00
parent dda1fe77c4
commit 0541442183
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
scm/lib/core.sld
View File

@ -82,6 +82,13 @@
(let ((kvs (list->alist kvs)))
(append kvs (mal-map-dissoc m (map car kvs)))))
(define (map-in-order proc items)
(let loop ((items items)
(acc '()))
(if (null? items)
(reverse acc)
(loop (cdr items) (cons (proc (car items)) acc)))))
(define (slurp path)
(call-with-output-string
(lambda (out)
@ -196,8 +203,9 @@
(append (butlast args)
(->list (mal-value (last args))))
(->list (mal-value (car args)))))))
(map . ,(lambda (f items) (mal-list (map (if (func? f) (func-fn f) f)
(->list (mal-value items))))))
(map . ,(lambda (f items) (mal-list (map-in-order
(if (func? f) (func-fn f) f)
(->list (mal-value items))))))
(nil? . ,(lambda (x) (coerce (eq? x mal-nil))))
(true? . ,(lambda (x) (coerce (eq? x mal-true))))