A mostly AI coded js-maker, supervised by me.

2026-05-26 09:42:35 +02:00
parent 8e8afc321b
commit 2cf831c180
23 changed files with 4143 additions and 1 deletions
@@ -0,0 +1,42 @@
+#lang racket/base
+
+(require racket/string
+         "utils.rkt"
+         )
+(provide symbol??
+         symstr
+         symstr-eval
+         is-if?)
+
+
+(define (symbol?? a)
+  (let ((r (symbol? a)))
+    r))
+
+(define (symstr x)
+  (cond
+    ((list? x)
+     (string-append "[ "
+                    (string-join (map symstr-eval x) ", ")
+                    " ]"))
+    ((vector? x)
+     (symstr (vector->list x)))
+    (else
+     (let ((r (format "~a" x)))
+       (let ((r* (if (string-prefix? r "(quote")
+                     (let ((s (substring r 7)))
+                       (substring s 0 (- (string-length s) 1)))
+                     r)))
+         r*)))
+    )
+  )
+
+
+(define (symstr-eval x)
+  (cond
+    ((string? x) (format "\"~a\"" (esc-double-quote x)))
+    (else (symstr x))))
+
+(define (is-if? x)
+  (displayln x)
+  (eq? x 'if))