Make take align with SRFI-1

CHANGELOG.md

@@ -10,6 +10,7 @@
 * replace `undefined` with `#void`, and `null` with `#null`
 * characters are again unboxed into strings by JavaScript code [#329](https://github.com/jcubic/lips/issues/329)
 * code that throw exception now return exit code 1
+* change order of arguments in `take`
 ### Features
 * add `vector-for-each` and `vector-copy!` function from R7RS
 * add `string-for-each`, `string-downcase`, and `string-upcase` from R7RS

lib/bootstrap.scm

@@ -849,17 +849,17 @@
 
    Returns a new function that limits the number of arguments to n."
   (lambda args
-    (apply fn (take n args))))
+    (apply fn (take args n))))
 
 ;; -----------------------------------------------------------------------------
-(define (take n lst)
-  "(take n list)
+(define (take lst n)
+  "(take list n)
 
    Returns n first values of the list."
-  (let iter ((result '()) (i n) (lst lst))
+  (let loop ((result '()) (i n) (lst lst))
     (if (or (null? lst) (<= i 0))
         (reverse result)
-        (iter (cons (car lst) result) (- i 1) (cdr lst)))))
+        (loop (cons (car lst) result) (- i 1) (cdr lst)))))
 
 ;; -----------------------------------------------------------------------------
 (define (zip . lists)