From 3c824a2ce132e0fd2c78c511261e002a8b33f130 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 5 Jun 2023 00:12:30 -0500
Subject: Add (fff json)

(fff json) serializes fff to json, but not the other way.
---
 .repl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to '.repl')

diff --git a/.repl b/.repl
index 7d50383..af13f78 100644
--- a/.repl
+++ b/.repl
@@ -3,12 +3,13 @@
 #+chicken (import (r7rs))
 
 (let loop ((load-files '("fff.parse"
-                         "fff.read")))
+                         "fff.read"
+                         "fff.json")))
   (if (null? load-files)
       #t
       (let ((this (car load-files)))
         (load (string-append (car load-files) ".sld"))
-        (eval `(import ,(map string->symbol (string-split this "."))))
+        ;; (eval `(import ,(map string->symbol (string-split this "."))))
         (load (string-append (car load-files) ".ss"))
         (loop (cdr load-files)))))
 
-- 
cgit 1.4.1-21-gabe81