From a89d6c82e981fec7d6e4c975e083d2b9e04467ad Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@posteo.net>
Date: Mon, 1 May 2023 07:56:42 -0700
Subject: Rewrite most of the compiler.

This represents a major step back in terms of functionality, and amount
of code. The latter I think constitutes a major win. Next steps are to
reimplement syntax-rules, call/cc, and call-with-values.
---
 lib/csc/vec.csc | 65 ---------------------------------------------------------
 1 file changed, 65 deletions(-)
 delete mode 100644 lib/csc/vec.csc

(limited to 'lib/csc/vec.csc')

diff --git a/lib/csc/vec.csc b/lib/csc/vec.csc
deleted file mode 100644
index 2730c39..0000000
--- a/lib/csc/vec.csc
+++ /dev/null
@@ -1,65 +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-ref v k)
-      (if (>= k (vec-length v))
-          (error "index out of bounds" k)
-        (vector-ref (vec-arr v) k)))
-
-
-    (define (append-one 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))))
-
-
-    (define (append2 v1 v2)
-      (if (vec? v2)
-        (let loop ((i 0)
-                   (v v1))
-          (if (< i (vec-length v2))
-            (loop (+ 1 i) (append-one v (vec-ref v2 i)))
-            v))
-        (append-one v1 v2)))
-
-
-    (define (vec-append v . xs)
-      (let loop ((xs xs)
-                 (v v))
-        (if (null? xs)
-          v
-          (loop (cdr xs) (append2 v (car xs))))))))
-- 
cgit v1.3.1