From 68986fe0410584c6934c835bb0ee784655f5f8c5 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Tue, 11 Jan 2022 22:01:23 -0800
Subject: Move scheme compiler into a separate directory.

---
 vec.csc | 54 ------------------------------------------------------
 1 file changed, 54 deletions(-)
 delete mode 100644 vec.csc

(limited to 'vec.csc')

diff --git a/vec.csc b/vec.csc
deleted file mode 100644
index 03f2b0f..0000000
--- a/vec.csc
+++ /dev/null
@@ -1,54 +0,0 @@
-(define-library (csc vec)
-  (export
-    list->vec
-    vec
-    vec->list
-    vec-append
-    vec-length
-    vec-ref
-    vec?)
-  (import (scheme base))
-  (begin
-
-
-    (define-record-type <vec>
-      (make-vec len arr)
-      vec?
-      (len vec-length)
-      (arr vec-arr))
-
-
-    (define (list->vec l)
-      (let ((arr (list->vector l)))
-        (make-vec (vector-length arr) arr)))
-
-
-    (define (vec->list v)
-      (vector->list (vec-arr v) 0 (vec-length v)))
-
-
-    (define (vec . xs)
-      (list->vec xs))
-
-
-    (define (vec-append v . xs)
-      (let ((append-one
-              (lambda (v x)
-                (let ((new-v (if (> (vector-length (vec-arr v)) (vec-length v))
-                                 v
-                               (let ((new-arr (make-vector (max 1 (* 2 (vec-length v))))))
-                                 (vector-copy! new-arr 0 (vec-arr v))
-                                 (make-vec (vec-length v) new-arr)))))
-                  (vector-set! (vec-arr new-v) (vec-length new-v) x)
-                  (make-vec (+ 1 (vec-length new-v)) (vec-arr new-v))))))
-        (let loop ((v v)
-                   (xs xs))
-          (if (null? xs)
-              v
-            (loop (append-one v (car xs)) (cdr xs))))))
-
-
-    (define (vec-ref v k)
-      (if (>= k (vec-length v))
-          (error "index out of bounds" k)
-        (vector-ref (vec-arr v) k)))))
-- 
cgit v1.3.1